Hier nochmal der Code:
Option Explicit
Sub Daten_Loeschen()
Dim fSearch As FileSearch
Dim wkb As Workbook
Dim strPath As String
Dim iCnt As Integer
Dim index As Variant
strPath = "C:\Dokumente und Einstellungen\dse51266\Desktop\Test\"
Set fSearch = Application.FileSearch
With fSearch
.LookIn = strPath
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Filename = "*"
.Execute
For iCnt = 1 To .FoundFiles.Count
Cells(iCnt, 2) = .FoundFiles.Name
Next iCnt
End With
End Sub