スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文  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