mit folgendem Befehl wähle ich eine zu öffnende Datei aus.
strDatei = Application.GetOpenFilename
Dieser Befehl gibt mir nur den Dateinamen zurück. Gibt es eine Möglichkeit auch den Pfad der gewählten Datei auszulesen?
Vielen Dank
Armin
Sub OrdnerNameEinerDatei()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("D:\Deine\sehr\versteckte\Datei\irgendwo auf dem PC\Geheime Datei.xls")
MsgBox "Datei liegt in folgendem Ordner : " & vbLf & vbLf & f.Parentfolder
End Sub
Gruß, NoNet