Office: Unterordner in Listbox

Cuipers · 10. Februar 2015

Hallo zusammen,

ich habe ein UserForm mit einer ComboBox und einer ListBox
Diese ListBox soll alle Dateien und Ordner anzeigen, die in einem variablen Ordner (den man über die ComboBox auswählt) vorhanden sind.
Bisher funktionert es im ausgewählten Ordner, jedoch noch nicht in den unterordnern.

Code:

Private Sub CommandButton5_Click

Dim Datei
Dim Ordner
Dim FSO As Object
Dim Verz As Variant

Verz = "K:\Musik\" & ComboBox1

Set FSO = CreateObject ("Scripting.filesystemobject")
Me.ListBox1.Clear
For Each Datei in FSO.getfolder(Verz).Files

Me.ListBox1.AddItem Datei
Next
For Each Ordner In FSO.getfolder(Verz).subfolders

Me.ListBox1.AddItem Ordner
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bsp:
In der ComboBox sucht man die Band, in den Unterordnern sind die Alben.

Hoffe das Problem ist verständlich berschrieben.
Wenn da jemand einen Tipp hat wäre Ich sehr dankbar. Die Google Ergebnisse waren da nicht so hilfreich.

MfG

Cuipers

:)

Hajo_Zi · 12. Februar 2015

hier wird das ausgelesene in eine Datei geschrieben. Das dütfte aber nicht das Problem sein, die auf die Listbox umzuleiten.
Ordner auslesen

Cuipers · 12. Februar 2015

Erstmal herzlichen Dank für die schnelle Antwort.
Die Datei ist schon recht gut.
Nur leider übersteigt es meine Fähigkeiten die Datei so umzuschreiben, wie ich es gern hätte *biggrin.gif* *frown.gif*
Hatte gehofft, daß man nur ein paar Zeilen einfügt und dann die Unterordner mit aufgelistet bekommt...

xlph · 12. Februar 2015

Hallo,

Code:

Private Sub CommandButton5_Click()

Dim FSO As Object
Dim StartOrdner As Object
Dim Verz As Variant

Verz = "K:\Musik\" & ComboBox1

Set FSO = CreateObject("Scripting.filesystemobject")
Set StartOrdner = FSO.getFolder(Verz)

ListBox1.Clear
ListBox1.AddItem "[" & StartOrdner.Name & "]"

Call ListFoldersAndFiles(FSO, ListBox1, StartOrdner)

Set FSO = Nothing
Set StartOrdner = Nothing

End Sub

Private Sub ListFoldersAndFiles(FSO As Object, lst As MSForms.ListBox, Folder As Object, Optional Einzug As Long)
Dim File As Object
Dim SubFolder As Object

Einzug = Einzug + 1

For Each File In Folder.Files
lst.AddItem String(Einzug * 4, "-") & "> " & File.Name
Next

For Each SubFolder In Folder.Subfolders
lst.AddItem String(Einzug * 4, "-") & ">" & " [" & SubFolder.Name & "]"
Call ListFoldersAndFiles(FSO, lst, SubFolder, Einzug)
Einzug = Einzug - 1
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Unterordner in Listbox

Unterordner in Listbox

Unterordner in Listbox

Unterordner in Listbox

Unterordner in Listbox - Similar Threads - Unterordner Listbox

Schriftgröße in Email Unterordner ändern...

Outlook Emails inkl. aller Unterordner pro Tag zählen/auswerten

VBA Unterordner

Ordner mit Unterordner per VBA erstellen

Posteingang Unterordner entfernen

auch Unterordner berücksichtigen

MS Teams / SharePoint übergeordnete Ordner lassen sich nicht löschen, wenn Unterordner oder ...