Windows Ordner in Exel einlesen

[Flotter Feger]

Hallo,

wieso haben die Leute heutzutage keine Geduld mehr ? Und Lust etwas neues selbst zu erlernen, haben sie auch keine mehr ... Schade.

Dabei ist es doch total einfach ... und man findet es an allen Ecken im Netz ...

Code:

Sub FoldersOnly()
Dim FSO         As Object
Dim Dest        As Range
Dim TopFolder   As Object
Dim SubFolder   As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
Set TopFolder = FSO.GetFolder("C:\DeinPfad\")

Set Dest = Worksheets("Tabelle1").Range("A1")
Dest.Value = TopFolder.Path

Set Dest = Dest.Offset(1, 1)

If TopFolder.SubFolders.Count > 0 Then
    For Each SubFolder In TopFolder.SubFolders
        Dest.Value = SubFolder.Name
        Set Dest = Dest.Offset(1, 0)
    Next SubFolder
End If
End Sub