Sub 指定フォルダのサイズを取得する()

    Set ファイルシステム = CreateObject("scripting.filesystemobject")
    
    対象フォルダ = "C:\test\"
    
    MB = Round(ファイルシステム.GetFolder(対象フォルダ).Size / 1000 / 1000, 0)
    
    MsgBox 対象フォルダ & "のサイズは" & MB & "MBです"
    
End Sub