Sub Cドライブの容量サイズを取得する()

    Set システム = CreateObject("Scripting.FileSystemObject")
    
    MB = Round(システム.Drives.Item("C").TotalSize / 1000 / 1000, 0)
    GB = Round(システム.Drives.Item("C").TotalSize / 1000 / 1000 / 1000, 0)
    
    MsgBox "Cドライブの容量サイズは" & vbCrLf _
                    & "" & MB & "MB" & vbCrLf _
                    & "" & GB & "GB"

End Sub