Dateien auslesen, Pfadangabe abschneiden
18.02.2005 17:44:20
Andreas
ich lasse mir Dateinamen von Excel aus Ordnern auslesen.
Das Skript (Siehe unten) gibt mir die kompletten Pfade an.
Ich brauche aber nur die Dateinamen.
Wie kann ich alles was links vom Backslash-Zeichen (inklusive) abschneiden?
Sub Datei_finden()
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = Range("C1").Value
.SearchSubFolders = True
.Filename = Range("B1").Value
.Execute
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next
End With
Columns.AutoFit
End Sub
Vielen Dank,
Andreas