Private Sub getAllFolders( _
    ByVal sPath As String, _
    ByRef ioCol As Collection _
  )
 
  Dim Folder      As Folder
  Dim SubFolder   As Folder
  Dim FSO         As New FileSystemObject 'Evtl. als globale Variable anlegen, 
  ' damit nicht bei jeder Rekursion ein FSO erzeugt wird 
 
  ' Ggf. abschliessenden Backslash anfügen
  If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
 
  Set Folder = FSO.GetFolder(sPath)
  ioCol.Add Folder, Folder.Path & "\" & Folder.Name
 
  ' Ggf. Fehler "Zugriff verweigert" ignorieren
  On Local Error Resume Next
 
  ' Unterordner lesen
  If Folder.SubFolders.Count > 0 Then
    For Each SubFolder In Folder.SubFolders
      ' Hier wird die Funktion REKURSIV aufgerufen,
      ' um alle weiteren Unterordner des SubFolders
      ' zu ermitteln
      getAllFolders sPath & SubFolder.Name, ioCol
    Next
  End If
End Sub

Gruß
Dirk

--
?Get it right the first time