Folderオブジェクト - Sizeプロパティ

---

【書式】

Folder.Size

フォルダ内に存在する全てのファイルの合計サイズを返します。

Sub test50()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Workフォルダ内の全ファイルの合計サイズを表示します
    MsgBox FSO.GetFolder("C:\Work").Size
    Set FSO = Nothing
End Sub