【書式】
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