[flinx]

sorry, meine schuld. der befehl ist echt fein, kenn ihn selber zu gut *gg*
das problem ist jedoch das "ms-dos" pseudo nicht konform mit den windows ordner namen fungiert. z.b. immer ÄÄÄÄ davor usw....

tree /a hilft auch nicht? (ev. + Wordmakro suchen&ersetzen)

ich arbeite gerade daran das er die subf. in eine neue spalte einträgt )

So?

Public Sub Verzeichnisbaum(fld As Folder, Optional i As Long = 1, Optional j As Long = 1)
'Listet alle Unterverzeichnisse und Dateien eines Startverzeichnisses auf
'Der Aufruf erfolgt rekursiv, daher die Aufrüf-Sub
Dim subfld As Folder, Flag As Boolean, fil As File
Flag = True
For Each fil In fld.Files
If Flag Then Worksheets(1).Cells(i, j).Value = fil.ParentFolder.Path
Worksheets(1).Cells(i, j + 1).Value = fil.Name
Worksheets(1).Cells(i, j + 2).Value = fil.DateCreated
i = i + 1
Flag = False 'dient dazu, den Pfad nicht jedesmal zu schreiben
Next
For Each subfld In fld.SubFolders
j = j + 1
Verzeichnisbaum subfld, i, j
Next
j = j - 1
End Sub
'Ende Code