Beim ersten Start meiner Anwendung muss ich einen Pfad angeben, um einige Dateien darin zu speichern. Aber im Dialog zum Öffnen von Dateien muss ich wohl eine Datei zum Öffnen auswählen. Wie kann ich einfach einen Ordner angeben, ohne eine Datei wie C: \ config \ zu öffnen?

Hier ist mein Code

If apppath = "" Then
        Dim fd As OpenFileDialog = New OpenFileDialog()
        fd.Title = "Select Application Configeration Files Path"
        fd.InitialDirectory = "C:\"
        fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
        fd.FilterIndex = 2
        fd.RestoreDirectory = True
        If fd.ShowDialog() = DialogResult.OK Then
            apppath = fd.FileName
        End If
        My.Computer.FileSystem.WriteAllText(apppath & "apppath.txt", apppath, False)
    End If

Ich muss eine Datei auswählen, damit sie funktioniert, aber ich möchte nur einen Ordner auswählen. Also, was ist die Lösung?