Dim FSO As New FileSystemObject
Dim Folder As Folder
Dim SubFolder As Folder
 
<font color=green>' alle Ordner des CD-Laufwerks ermitteln</font>
Set Folder = FSO.GetFolder("d:\")
 
<font color=green>' Unterordner lesen</font>
If Folder.SubFolders.Count > 0 Then
  For Each SubFolder In Folder.SubFolders
    List1.AddItem SubFolder.Name
  Next
End If