Mit diesem Code kann man ein Fenster einblenden um einen Ordner (keine Datei) auszuwählen:

Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
Pfad = BrowseDir.items().Item().Path
If Pfad = "" Then Exit Sub
On Error GoTo 0

Beschreibung: Dieser Programmcode zeigt ein Auswahlfenster an in dem ein Ordner ausgewählt wird.

Teilen