По этому поводу хелп говорит
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
Ведь я тебе показал куда копать, даже инструмент в руки дал
и... в каждом (почти) топике этого раздела написано как начать писать макрос
Макрос-записать-сделать действия-остановить
А дальше самое простое - раскрутить самостоятельно