Возвращает размер в байтах всех файлов и подпапок, содержащихся в папке.

object.Size

Параметры
object - всегда объект File или Folder.

Пример
Следующий код иллюстрирует использование Size свойства для файла:

Sub ShowFolderSize(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(filespec)
    s = UCase(f.Name) & " uses " & f.size & " bytes."
    MsgBox s, 0, "Folder Size Info"
End Sub