ドライブの使用しているディスク容量を取得する【FileSystemObject】【ExcelVBA】

ドライブの使用しているディスク容量を取得したい

ドライブの現在の使用容量を取得する場合は、以下計算式で対応可能です。
TotalSize(全容量) – AvailableSpace(空き容量) = ドライブで使用している容量

ドライブの使用しているディスク容量を取得するサンプルコード

Public Sub sample()
    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
            
    '■ドライブの容量（TotalSize）、空いている容量(AvailableSpace)
    Debug.Print fso.GetDrive("C:\").TotalSize      '255180402688
    Debug.Print fso.GetDrive("C:\").AvailableSpace '120981856256
    
    '■使用しているドライブ容量を取得
    Debug.Print fso.GetDrive("C:\").TotalSize - fso.GetDrive("C:\").AvailableSpace  '134217314304
    
End Sub

注意点

• 特にありません。

関連記事

• ファイル名と拡張子を分けて取得する【FileSystemObject】
• パスとファイル名からフルパスを生成する【BuildPathメソッド】【FileSystemObject】
• サブフォルダを取得する【SubFoldersプロパティ】【FileSystemObject】
• フォルダを削除する【DeleteFolderメソッド】【FileSystemObject】
• フォルダをコピーする【CopyFolderメソッド】【FileSystemObject】
• フォルダを移動する【MoveFolderメソッド】【FileSystemObject】
• Drivesコレクションを取得する【Drivesプロパティ】【FileSystemObject】【ExcelVBA】