Microsoft Excel: Wie alle Ordnernamen eines Verzeichnisses ausgeben lassen?

[mf_2]

Hallo,

Ich habe in einem anderen Forum folgenden Code gefunden:

Sub DateienAuflistenUndHyperlinken()
Dim i As Long
Dim Bereich As Range
Dim Zelle As Range
Const verz = "C:\Dokumente"
'ACHTUNG PFAD ANPASSEN !!!!
'oder über Inputbox kreieren lassen
ChDir verz
Range("A:A").ClearContents
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Range("A1").Select
Set Bereich = ActiveCell.CurrentRegion
For Each Zelle In Bereich
Zelle.Hyperlinks.Add Zelle, Zelle.Value
Next Zelle
End Sub


Dieses Makro gibt mir eine Liste aller Dateien im Verzeichnis "C:\Dokumente" in Excel aus. ich suche etwas ganz ähnliches, und zwar ein Script dass mir alle Datei- und Ordnernamen eines Verzeichnisses ausgibt, allerdings in der Form "lol.txt" und nict "C:\Dokumente\lol.txt"
Könnt ihr mir da weiterhelfen? ich kenne mich leider 0% mit Makros aus.
Danke!!!,
mf_2

[Haarmann]

dir /b/s *. >lol.txt

müsste gehen