●概要●
構文 Object.TotalSize 取得のみ
Object.FreeSpace 取得のみ
設定項目 内容
Object Driveオブジェクトを指定［省略不可］
DriveオブジェクトのTotalSizeプロパティはドライブの合計サイズを返します。
FreeSpaceプロパティはドライブの空き容量を返します。
DriveオブジェクトはFileSystemObjectのGetDriveメソッドで取得します。
DriveオブジェクトはFileSystemObjectオブジェクトの参照設定を行ってから使用します。参照設定は、［ツール］メニューから［参照設定］コマンドを選択して、［参照設定］ダイアログボックスを表示します。ダイアログボックスが表示されたら一覧から「Microsoft Scripting Runtime」をチェックして［OK］ボタンをクリックします。
サンプルは、Cドライブの空き容量と合計サイズをメッセージダイアログに表示します。
●サンプル●
'ドライブの容量（空き容量）を取得する
' [ツール]→[参照設定]で「Microsoft Scripting Runtime」をチェック
Sub Sample()
Dim myFileSystem As New Scripting.FileSystemObject
Dim myDrive As Scripting.Drive
Set myDrive = myFileSystem.GetDrive("C")
MsgBox "Ｃドライブの空き領域 ：" & myDrive.FreeSpace & vbNewLine & _
"Ｃドライブの合計サイズ：" & myDrive.TotalSize
End Sub
