Point：目的のフォルダのサイズ(大きさ)を知りたい。(バイト単位。この例では、開かれているブックがあるフォルダのサイズを求めています。)

Sub Test()

    ShowFolderSize (ThisWorkbook.Path)

End Sub


Sub ShowFolderSize(filespec)
     Dim fs, f, s

     Set fs = CreateObject("Scripting.FileSystemObject")

     Set f = fs.GetFolder(filespec)

     s = UCase(f.Name) & " は、" & f.Size & " バイト使用しています。"

    MsgBox s, 0, "フォルダのサイズ"
End Sub