Problem mit Verzeichnisstruktur auslesen

Sub DateienListen()
i = 1
With Application.FileSearch
.NewSearch
.LookIn = "d:\Dateien"
.Filename = "*.*"
.SearchSubFolders = True
If .Execute() > 0 Then
For Each varFile In .FoundFiles
Cells(i, 1).Value = varFile
i = i + 1
Next varFile
End If
End With
End Sub