кол-во файлов и их общий объёми

[Rik3D]

Как найти кол-во файлов и их общий объёми? Код по которому я ищу файлы офис ниже:
Заранее большое спасибо!!!

Sub ror()
With Application.FileSearch
.NewSearch
.LookIn = "c:\Program files"
.FileType = msoFileTypeOfficeFiles
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Worksheets(4).Cells(i, 5) = .FoundFiles(i)
Next
End With
End Sub