Ist hier eine Pfadvorgabe möglich?
Christian
möchte diese Funktion mit einer Pfadvorgabe belegen.
z.B. K:\pfad\
um dort auf die Unterverzeichnisse zugreifen zu können.
Ist dies möglich ?
Ansonsten wird mir der "ganze Computer" angezeigt.
Sub Verzeichnis_Auswahl() Dim objShell As Object, objFolder As Object, strPfad As Variant Set objShell = CreateObject("Shell.Application") With objShell Set objFolder = .BrowseForFolder(0&, "Ordner wählen oder anlegen...", 0, 17) End With On Error Resume Next VerzPfad = objFolder.Title If Not IsEmpty(VerzPfad) Then MsgBox VerzPfad End Sub