HonniCilest
Erfahrenes Mitglied
Hallo Leute,
ich habe mir bereits den FileDialog angeschaut und folgendes gebastelt:
Das funktioniert auch soweit, in getFile steht letztendlich der ausgewählte Ordner.
Dennoch habe ich ein Problem - im Auswahldialog werden mir keine Unterordner angezeigt um "browsen" zu können. Kann mir einer helfen?
ich habe mir bereits den FileDialog angeschaut und folgendes gebastelt:
Code:
Dim myDirectoryDialog As FileDialog
Set myDirectoryDialog = Application.FileDialog(msoFileDialogFolderPicker)
With myDirectoryDialog
.ButtonName = "Auswahl"
.Title = "Ordner auswählen"
If(.Show = 0) Then
getFile = ""
Else
getFile = .SelctedItems(1)
End If
End With
Das funktioniert auch soweit, in getFile steht letztendlich der ausgewählte Ordner.
Dennoch habe ich ein Problem - im Auswahldialog werden mir keine Unterordner angezeigt um "browsen" zu können. Kann mir einer helfen?