По этому поводу хелп говорит
Syntax
object.Size
The object is always a File or Folder object.
Remarks
The following code illustrates the use of the Size property with a Folder object:
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
Ведь я тебе показал куда копать, даже инструмент в руки дал
и... в каждом (почти) топике этого раздела написано как начать писать макрос
Макрос-записать-сделать действия-остановить
А дальше самое простое - раскрутить самостоятельно