ich erstelle mir mit diesem Makro in einer Exceldatei ein Dateiverzeichnis ohne die Dateien zu öffnen
Sub Dateiverzeichnis()
importzeile = 12
With Application.FileSearch
.Filename = "*.xls"
.LookIn = "C:\Testverzeichnis"
.SearchSubFolders = True
.Execute
For i_datei = 1 To .FoundFiles.count
dateiname = Dir(.FoundFiles(i_datei))
Sheets("Tabelle1").Cells(importzeile, 14).Value = dateiname
' Sheets("Tabelle1").Cells(importzeile, 15).Value = anzeige Pfad?
importzeile = importzeile + 1
next i_datei
Das klappt auch ohne Probleme, doch möchte ich zum Dateinamen auch den Pfad mir anzeigen lassen. Doch im Moment weiß ich nur wie man den Pfad ermittelt wenn die Datei geöffnet ist. Aber wie zeige ich mir den an wenn die Datei nicht geöffnet wird?
Weiß das einer von euch?
Danke für die Hilfe
Gruß Ron