Ich möchte mit folgender Funktion einen Pfad auslesen - Startposition soll immer "Computer" oder "Desktop" sein - leider funktioniert dies aber nicht mit diesen beiden Namen - kann mir einer helfen - vielen Dank
Sub X_GetFolder()
MsgBox fu_GetFolder("Computer") 'geht nicht!!!
End Sub
Function fu_GetFolder(Optional ByVal sPfa = "")
Dim Dlg As FileDialog
sPfa = sPfa & IIf(Right(sPfa, 1) = "\", "", "\") 'nur zur Sicherheit, ob \ vorhanden ist
Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
With Dlg
.InitialFileName = sPfa
If .Show = True Then fu_GetFolder = .SelectedItems(1)
End With
End Function
mfg Pepi