Ergebnis = 0
If fso.FolderExists("C:\ab") Then Ergebnis Ergebnis + fso.GetFolder("ab").Size
If fso.FolderExists("C:\cd") Then Ergebnis Ergebnis + fso.GetFolder( _
  "C:\cd").Size
If fso.FolderExists("C:\ef") Then Ergebnis Ergebnis + fso.GetFolder( _
"C:\ef").Size
If fso.FolderExists("C:\gh") Then Ergebnis Ergebnis + fso.GetFolder( _
"C:\gh").Size
 
Text3.text = FormatBytes(Ergebnis)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de