Global i, spaceint, foldercount As Integer
Global tree As String
Global FSO As FileSystemObject
 
Public Sub FSO_GetAllFolders(Path As String)
 
  Dim Folder As Folder
  Dim SubFolder As Folder
 
  spaceint = spaceint + 5
  vorschub = space(spaceint)
 
  Set Folder = FSO.GetFolder(Path)
 
  For Each SubFolder In Folder.SubFolders
     tree = tree & vorschub & SubFolder.Name & vbCrLf
     foldercount = foldercount + 1
     Form1.Text1.Text = tree
     Form1.Label1.Caption = foldercount & " Ordner durchsucht"
     Form1.Refresh
     FSO_GetAllFolders (Path & SubFolder.Name & "\")
  Next
  spaceint = spaceint - 5
End Sub