FileDialogFolderPicker
Fettertiger
ich habe zwar schon zig Posts zu diesem Thema gefunden, eine Lösung konnte ich aber nicht ableiten. Vielleicht hat ja jemand von Euch eine Lösung?
Mit folgendem Code-Snipplet suche ich per VBA einen Ordner zur weiteren Verarbeitung auf.
Sub test()
Dim fDialog As FileDialog
Dim i As Long
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.InitialFileName = Options.DefaultFilePath(wdDocumentsPath)
.Title = "Select folder containing the pictures to paste into the document"
.AllowMultiSelect = False
If .Show -1 Then
Exit Sub
End If
End With
FName = ActiveDocument.Name
msgbox(fname)
End Sub
Das funktioniert so weit auch ganz gut, aber die User sind irritiert, weil dieser Dialog nicht die Ordnerinhalte mit anzeigt. Kennt jemand von Euch eine Alternative (evtl. Userform), bei der der User immer noch den Ordner auswählt, aber nicht parallel den Explorer öffnen muss, um zu sehen, ob er den richtigen Ordner erwischt hat?Vielen Dank im Voraus
Fettertiger