Driveオブジェクト - TotalSizeプロパティ


【書式】

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