Dateien in einem Ordner suchen

Sub file_search()
Dim Zaehler As Long
Dim Zaehler2 As Long
Dim Endwert As Long
With Application.FileSearch 'Ordner nach Dateien durchsuchen
.NewSearch
.LookIn = "N:\5thFrameworkProgramme\PV-Enlargement\Contract\Tasks-WIP\DAS"
.SearchSubFolders = False
.Filename = "*"
.Execute
Endwert = .FoundFiles.Count
ReDim file_vector(1 To Endwert) 'Vektor anlegen für alle gefundenen Dateien
For Zaehler = 1 To Endwert
file_vector(Zaehler) = .FoundFiles(Zaehler) 'Dateinamen incl Pfad in den Vektor schreiben
Next Zaehler
End With
For Zaehler = 1 To Endwert  'Schleife zum Abschneiden des Datei-Pfades
For Zaehler2 = Len(file_vector(Zaehler)) To 1 Step -1 'String mit Name und Pfad von rechts nach links nach erstem Backslash durchsuchen
If Mid(file_vector(Zaehler), Zaehler2, 1) = "\" Then
file_vector(Zaehler) = Mid(file_vector(Zaehler), (Zaehler2 + 1), (Len(file_vector(Zaehler)) - Zaehler2))  'wenn Backslash gefunden, dann nur den Teil rechts davon aufheben
Exit For
End If
Next Zaehler2
Next Zaehler
For Zaehler = 1 To Endwert  'Filenamen ausgeben
Worksheets("Tabelle1").Cells(Zaehler, 2).Value = file_vector(Zaehler)
Next Zaehler
End Sub