Code eingefügt mit Syntaxhighlighter 1.16
Sub Fill_Table_with_Filenames()
Dim i As Long, totFiles As Long
Dim gefFile As String, dname As String
Dim Suchpfad As String, Suchbegriff As String, DateiForm As String
Dim oldStatus As Variant
Suchpfad = Range("B1") 'Pfadname
If Suchpfad = "" Then Exit Sub
DateiForm = "*.xls"
Application.ScreenUpdating = True
oldStatus = Application.StatusBar
With Application.FileSearch
.LookIn = Suchpfad
.SearchSubFolders = True
.Filename = DateiForm
If .Execute() > 0 Then
totFiles = .FoundFiles.Count
Application.StatusBar = "Total " & totFiles & " gefunden"
For i = 1 To .FoundFiles.Count
gefFile = .FoundFiles(i)
'In Tabelle eintragen
Cells([a65536].End(xlUp).Row + 1, 1) = gefFile
Cells([B65536].End(xlUp).Row + 1, 1) = Right(gefFile, 3)
'In Listbox eintragen
'Me.ListBox1.AddItem (gefFile)
Next i
End If
End With
Application.StatusBar = oldStatus
Application.ScreenUpdating = True
End Sub