Das Makro funktioniert soweit wie ich mir das vorgestellt habe. In der ListBox2 werden aber nur
Dateien angezeigt die sich in dem entsprechenden Ordner befinden. Die ListBox2 zeigt aber
keine Unterordner (falls vorhanden) an. Ich bekomme das leider nicht hin, egal was ich probiere.
Hier der Ausschnitt des Makros für die ListBox2:
Private Sub ListBox1_Change()
Dim FS As Object
Dim Ordner As Object
Dim Datei As Object, Item
Dim Unterordner As Object
If Me.ListBox1.ListCount 0 Then
Me.ListBox2.Clear
Set FS = CreateObject("Scripting.filesystemobject")
Set Ordner = FS.getfolder("C:\Personen\" & ListBox1.Value)
Set Datei = Ordner.Files
For Each Item In Datei
Me.ListBox2.AddItem Item.Name
Next
For Each Unterordner In Datei
Me.ListBox2.AddItem Unterordner.Name
Next
End If
End Sub
Viele Grüßextian