Verzeichnissgröße, Dateianzahl, Ordneranzahl

Sub Laufallesab()
check = True
Counter = 2
Do Until check = False
Set curCell = Worksheets("Gesamtliste").Cells(Counter, 3)
If curCell.Value = "" Then
check = False
Else
ShowFolderSize curCell.Value, Counter
Counter = Counter + 1
End If
Loop
End Sub

Sub ShowFolderSize(filespec, row)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(filespec)
s = f.Size
Set curSetCell = Worksheets("Gesamtliste").Cells(row, 7)
curSetCell.Value = s
With Application.FileSearch
.NewSearch
.LookIn = "C:\Win16app"
.SearchSubFolders = True
.Execute
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
Set curSetCell = Worksheets("Gesamtliste").Cells(row, 5)
s = .FoundFiles.Count
curSetCell.Value = s
End With
End Sub