Windows Ordner in Exel einlesen

[Neo13]

Moin...

In Sachen Excel bin ich ein absoluter Anfänger...
Daher habe ich eine Frage...
 
Ich möchte gerne die Windows Ordner von meiner HDD in Excel einlesen lassen, jedoch nicht die da drin befindlichen Dateien.
Bisher habe ich immer nur gefunden, das man die Dateien einlesen kann... Um die geht es mir jedoch nicht...

Könnt Ihr mir da helfen??

Danke schön, schon einmal...

LG  

PS: Ich benutze Office 365...

[GMG-CC]

Moin,
… Bahnhof. 
WAS genau soll in Excel dargestellt werden. Die Struktur der (Unter)Verzeichnisse und die Dateinamen? (Auch) Das ist mit deiner Version gut machbar.

[Neo13]

Moin Günther...

Nur die Ordner in dem ausgewählten Verzeichnis .... Keine Unterordner/Struktur bzw. Dateinahmen. Nur der immer die "ersten" Ordner.
LG

[Neo13]

... habe es nun anders gelöst...
Ich habe mir das Programm "DirPrintOK" heruntergeladen... Mit dem konnte ich es ins .xls Format exportieren...
Danke trotzdem...

[GMG-CC]

Gerne…
Es wäre aber auch eine schöne Übung für Power Query (Daten | Abrufen und transformieren) gewesen, um dieses wirklich leistungsfähige Werkzeug kennen zu lernen.

[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

[Neo13]

Danke Dir Flotter Feger

Das hat Astrein funktioniert.
Vielen Dank...
So wollte ich es auch haben...
LG