Ordnerstruktur Windows Laufwerk ausgeben

Question

Hallo,

wie kann ich in Excel in Ordnerstruktur eines Windows Laufwerks ausgeben, welches ich vorher per Dialog auswähle?

Als Auswahl C:\

Es sollen dann NUR die Ordner der 1. Ebene aufgelistet werden

z.B.

C:\

Ordner 1

Odner 2

Ordner 3

etc.

Nicht die jeweilgen Unterordner.

Danke für Tipps.

Answer 1

Diese Antwort wurde automatisch übersetzt. Daher können grammatikalische Fehler oder seltsame Formulierungen vorkommen.

Wir verwenden den Codeblock, um den VBA-Inhalt erneut zu senden, sodass Sie ihn einfach kopieren und einfügen können.

Sub ListFirstLevelFolders()

    Dim FileSystem As Object

    Dim HostFolder As String

    Dim Folder As Object

    Dim i As Integer

    ' Set this to the root path of the drive you want to list folders for

    HostFolder = "C:\" 

    ' Create a FileSystemObject

    Set FileSystem = CreateObject("Scripting.FileSystemObject")

    ' Create a new worksheet in Excel

    With ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

        .Name = "Folders"

        i = 1 ' Start from the first row

        ' List all the first-level folders

        For Each Folder In FileSystem.GetFolder(HostFolder).SubFolders

            .Cells(i, 1).Value = Folder.Name

            i = i + 1

        Next Folder

    End With

    ' Cleanup

    Set FileSystem = Nothing

End Sub

Wenn Sie Fragen haben, lassen Sie es uns bitte wissen.

Manson |Spezialist für Microsoft-Community-Support

Answer 2

wie kann ich in Excel in Ordnerstruktur eines Windows Laufwerks ausgeben, welches ich vorher per Dialog auswähle?

Als Auswahl C:\

Das ist gar nicht so einfach, denn hier kommt es sehr darauf an wie die Berechtigungen sind.

Lade Dir mal diese Datei herunter
https://www.dropbox.com/s/700hbz18bsc7nu2/FileSearch.cls?dl=1

Dann nicht öffnen, sondern im VBA editor via Datei \ Import importieren

Ein Beispiel wie das benutzt wird findet sich in den Kommentaren. SearchSubFolders ist in Deinem Fall False.

Du kannst auch es ganz simpel mit DIR versuchen, meinen (damaligen) Versuchen zufolge finden jedoch Zugriffe dieser Art (ebenso wie via FileSystemObject) nicht alle Dateien / Ordner.

Andreas.

Answer 3

Danke, funktioniert super...

Answer 4

Hi Mia,

thanks for the answer.

But due to the automated translation, the macro is not usable anymore.

Can you please post the original one in English?

Thanks

Answer 5

Diese Antwort wurde automatisch übersetzt. Daher kann es zu grammatikalischen Fehlern oder seltsamen Formulierungen kommen.

Hallo, ddfgdf

Willkommen in der Microsoft-Community.

Wenn Sie basierend auf Ihrer Beschreibung ein Fenster in Ihrer Excel-Anwendung implementieren möchten, das die Ordnerstruktur Ihres Windows-Laufwerks anzeigt und standardmäßig das Laufwerk C und nur die Ordner der obersten Ebene anzeigt, können Sie den folgenden VBA-Code ausprobieren, um zu sehen, ob er Ihren Anforderungen entspricht.

1. Drücken Sie diese Schaltfläche, um den VBA-Editor in Excel zu öffnen.Alt + F11
2. Fügen Sie ein neues Modul ein, indem Sie auf "Einfügen" > "Modul" klicken.
3. Fügen Sie den folgenden Code in das Modul ein:
4. Speichern Sie die Arbeitsmappe als Arbeitsmappe mit Makros (mit der Erweiterung XLSM).
5. Schließen Sie den VBA-Editor.
6. Gehen Sie zu dem Blatt, in dem Sie die Ordnerstruktur ausgeben möchten.
7. Klicken Sie auf diese Schaltfläche, um das Dialogfeld Makro zu öffnen.Alt + F8
8. Wählen Sie das Makro OutputFolderStructure aus, und klicken Sie auf Ausführen.

Sub OpenFileExplorerAndListTopFolders()

ShellApp als Objekt dimmen 

Fim fso als Objekt dimmen 

TopLevelFolders als Objekt abdunkeln 

Dim-Ordner als Objekt 

Dim rowNum As Integer 

' Erstellen eines Shell.Application-Objekts zum Öffnen des Datei-Explorers 

Set shellApp = CreateObject("Shell.Application") 

' Öffnen Sie den Datei-Explorer mit dem angegebenen Ordner (C:\) 

shellApp.Open "C:\" 

' Warten Sie einen Moment, um sicherzustellen, dass der Datei-Explorer geöffnet ist 

Application.Wait Now + TimeValue("00:00:02") ' Passen Sie die Wartezeit bei Bedarf an 

' Erstellen eines FileSystemObject 

Set fso = CreateObject("Scripting.FileSystemObject") 

' Abrufen der Ordner der obersten Ebene des Stammverzeichnisses (C:\) 

Legen Sie topLevelFolders = fso fest. GetFolder("C:\"). Unterordner 

' Beginnen Sie mit Reihe 1 

rowNum = 1 

' Ausgabe der Ordnerstruktur 

Für jeden Ordner in topLevelFolders 

    Cells(rowNum, 1). Wert = Ordner. Name 

    rowNum = rowNum + 1 

Nächster Ordner 

' Aufräumen 

Festlegen von shellApp = Nichts 

Setze fso = Nichts 

Set topLevelFolders = Nichts 

Ordner festlegen = Nichts 

Ende Sub

Dieser Code zielt speziell auf das Stammverzeichnis (C:) ab und listet die Ordner der obersten Ebene in Excel auf. Bitte stellen Sie sicher, dass Sie "C:" in den gewünschten Laufwerksbuchstaben ändern, wenn Sie ein anderes Laufwerk analysieren möchten.

Vielen Dank für Ihr Verständnis und Ihre Geduld. Ich hoffe, ich habe eine hilfreiche Lösung für das Problem gefunden. Bitte zögern Sie nicht, mich wissen zu lassen, wenn Sie weitere Updates haben, danke.

Beste Wünsche

Mia |Spezialist für Microsoft-Community-Support