【書式】
Drive.TotalSize
ドライブの総容量を返します。
ディスクで使用している容量を求めるには、TotalSizeプロパティの値からAvailableSpaceプロパティの値を引きます。
Sub test36()
Dim FSO As Object, DriveObject As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''Cドライブの総容量を表示します
MsgBox FSO.GetDrive("C").TotalSize
Set DriveObject = Nothing
Set FSO = Nothing
End Sub