Mit nachfolgender Funktion, die ich mit Hilfe des Forums realisieren konnte, ermittle ich den Pfad eines Ordners. Das klappt soweit gut, indem ich nach Aufruf des FileDialog über "suchen in" den gewünschten Ordner anwählen kann.
Wenn ich jedoch im gleichen Suchfenster links die Symbole (Shortcuts) Desktop, Eigene Dateien, Arbeitsplatz anklicke, passiert nichts.
Kann diese Möglichkeit zusätzlich aktiviert werden?
Danke für eine Rückmeldung.
Peter
Function PfadWählen() As String
Dim oFS As Object, oFolder As Object, oFile As Object
Dim WKB As Workbook
With Application.FileDialog(4)
.InitialFileName = "C:\"
.InitialView = 2
.Title = "Bitte einen Ordner wählen"
If .Show = -1 Then
PfadWählen = .SelectedItems(1) & "\"
Else
Exit Function
End If
End With
End Function