Ordner auswählen, Files anzeigen
felix
Ich hab wieder einmal ein kleines Problem:
Ich will per Dialog eine Datei auswählen können. Dies funktioniert mit dem untenstehenden Code _
problemlos. Nun wäre es aber noch schön, wenn zur Ortientierung auch noch der Ordnerinhalt ( _ alle Files) angezeigt würde. Ist das möglich?
Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker) 'msoFileDialogFolderPicker
With fldr
.InitialView = msoFileDialogViewDetails
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function
(wenn ich msoFileDialogFilePicker verwende werden zwar alle Files angezeigt, aber ich kann nicht nur einen Ordner auswählen. Von dem her bräuchte ich den Folderpicker aber mit einer erweiterten Ansicht)
Danke schon im voraus
felix