Размер файлов?!

[Rik3D]

Код ниже выводит имена файлов с расширениями на лист, а на другой лист их общее кол-во.
как сделать так, чтобы на лист где имена с расщирением идут в столбик, с боку в следующем столбике напротив имени файла выводился его размер в байтах?
Sub файлы()
With Application.FileSearch
.NewSearch
.LookIn = "c:\Program files"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute msoSortByFileName
For i = 1 To .FoundFiles.Count
Worksheets(5).Cells(i, 1) = Mid$(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)
Worksheets(1).Cells(3, 2) = .FoundFiles.Count
Next
End With
Call оффис
End Sub

[Rik3D]

Всё! Разобрался!!!!