#024 指定ドライブの容量を調べる方法

説明：
FileSystemObject の "TotalSizeプロパティ" は指定ドライブのトータル容量をバイト単位で返します。
また "FreeSpaceプロパティ" は指定ドライブの空き容量をバイト単位で返します。
#025 指定ドライブの空き容量を調べる方法 　

サンプルプロシージャ：
標準モジュールに記述します。

Function bbShowTotalSize(Optional strDrv As String) As String

On Error GoTo Err_Handler

　　Dim Fso As Object, drv As Object
　　Dim GetTotalSize As Long

　　'ドライブを指定してください。
　　If Len(strDrv) = 0 Then strDrv = "C"

　　strDrv = Ucase(Left$(strDrv, 1))

　　'FileSystemObjectを生成します。
　　Set Fso = CreateObject("Scripting.FileSystemObject")

　　Set drv = Fso.GetDrive(Fso.GetDriveName(strDrv & ":"))

　　'ドライブ容量を取得します。
　　GetTotalSize = FormatNumber(drv.TotalSize / 1024, 0)

　　bbShowTotalSize = GetTotalSize

　　Set Fso = Nothing '変数を開放します。
　　Set drv = Nothing '変数を開放します。

Exit_Handler: Exit Function

Err_Handler:

　　'エラーの場合メッセージを表示します。
　　If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.Description

　　Resume Exit_Handler

End Function

使用例：
フォームのボタンクリック時等に記述します。

Sub Sample_Click()

　　MsgBox Format(bbShowTotalSize, "#,### バイト")

End Sub

関連ページ：
#023 Accessのバージョン（Ver）を調べる方法
#025 指定ドライブの空き容量を調べる方法
#026 カレントDB名を調べる方法
#027 ドライブタイプを調べる方法
#028 使用可能ドライブを調べる方法
#029 解像度を調べる方法
#030 メモリ容量を調べる方法