Zeichen ausschneiden
25.07.2003 18:12:53
dietrich
ich durchsuche ein Verzeichnis nach Excel-Tabellen. Mit der unten gezeigten Methode listet Excel mir den vollständigen Pfad und Dateinahmen zusammen auf. Ich bräuchte aber den Dateinamen auch nochmal getrennt, d.h. ich suche nun die Möglichkeit aus einem Ergebnis:
"h:\verzeihnis1\verzeichnis2\verzeichnis3\datei.xls"
nur "datei.xls" herauszufiltern. Gibt's vielleicht sogar eine Methode (?) bei .foundfiles(i)? Etwas wie .foundfiles.name(i)?
Folgenden Code benutze ich dazu:
Set fs = Application.FileSearch
lfdnr = 1
With fs
.LookIn = "H:\0_Aktuelles\SLA-Exceldaten\SLA-Exceldaten\SLA-Messdaten\"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks(Datei).Worksheets("Dateien").Range("A" & lfdnr).Value = .FoundFiles(i)
lfdnr = lfdnr + 1
Next i
End If
Kann mir da jemand helfen?
Grüße
Dietrich