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ß, NoNetDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen