GetDrive【ｹﾞｯﾄﾄﾞﾗｲﾌﾞ】メソッド
FileSystemObject【ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄ】（以下FSO）のGetDrive【ｹﾞｯﾄﾄﾞﾗｲﾌﾞ】メソッドを使用するとドライブをFSOのDriveオブジェクトとして取得できます。Drive【ﾄﾞﾗｲﾌﾞ】オブジェクトのプロパティを使用してさまざまな情報を取得できるようになります。
GetDrive【ｹﾞｯﾄﾄﾞﾗｲﾌﾞ】メソッドの書式と設定値の説明
オブジェクト.GetDrive(DriveSpec)
- オブジェクト
FSOを指定します。 - DriveSpec【ﾄﾞﾗｲﾌﾞｽﾍﾟｯｸ】
Driveオブジェクトとして取得したいドライブ名を指定します。
※指定したドライブが存在しない場合はエラーになります。
※「Microsoft Scripting Runtime」への参照設定が行われている必要があります。
DriveExists【ﾄﾞﾗｲﾊﾞｰｲｸﾞｽﾞｨｽﾄｩ】メソッド
ドライブの存在を確認するにはFSOオブジェクトのDriveExists【ﾄﾞﾗｲﾊﾞｰｲｸﾞｽﾞｨｽﾄｩ】メソッドを使用します。指定したドライブが存在する場合は「True」指定したドライブが存在しない場合は「False」を返します。
DriveExists【ﾄﾞﾗｲﾊﾞｰｲｸﾞｽﾞｨｽﾄｩ】メソッドの書式と設定値(引数)の説明
オブジェクト.DriveExists(DriveSpec)
【戻り値】ブール型(Boolean)
- オブジェクト
FSOを指定します。 - DriveSpec【ﾄﾞﾗｲﾌﾞｽﾍﾟｯｸ】
Drive存在を確認したいドライブ名を指定します。
Driveオブジェクトの主なプロパティ一覧
- AvailableSpace【ｱﾍﾞｲﾗﾌﾞﾙｽﾍﾟｰｽ】プロパティ
使用可能なディスク容量を取得します。 - DriveLetter【ﾄﾞﾗｲﾌﾞﾚﾀｰ】プロパティ
ドライブの名前を取得します。 - DriveType【ﾄﾞﾗｲﾌﾞﾀｲﾌﾟ】プロパティ
ドライブのタイプをドライブのタイプを表すDriveTypeConst列挙型の定数を返します。DriveTypeConst列挙型の定数 定数 値 ドライブの種類 UnknownType【ｱﾝﾉｳﾝﾀｲﾌﾟ】 0 不明 Removable【ﾘﾑｰﾊﾞﾌﾞﾙ】 1 リムーバブルディスク Fixed【ﾌｪｯｸｽﾄﾞ】 2 ハードディスク Remote【ﾘﾓｰﾄ】 3 ネットワークドライブ CDRom【ｼｰﾃﾞｨｰﾛﾑ】 4 CD-ROM RamDisk【ﾗﾑﾃﾞｨｽｸ】 5 RAMディスク - FreeSpace【ﾌﾘｰｽﾍﾟｰｽ】プロパティ
使用可能なディスク容量を取得する容量をバイト単位で取得します。 - IsReady【ｲｽﾞﾚﾃﾞｨ】プロパティ
ドライブの準備ができているかどうかを調べます。 - RootFolder【ﾙｰﾄﾌｫﾙﾀﾞｰ】プロパティ
ルートフォルダーを取得します。Folder【ﾌｫﾙﾀﾞｰ】オブジェクトを返します。 - TotalSize【ﾄｰﾀﾙｻｲｽﾞ】プロパティ
ドライブの総容量を取得します。容量をバイト単位で返します
ドライブの使用容量を取得するコードと解説
Sub ドライブ容量取得()
Dim myFSO As New FileSystemobject
Dim ドライブ容量 As Drive
If myFSO.DriveExists("C") Then
Set ドライブ容量 = myFSO.GetDrive("C")
Else
MsgBox "ドライブが存在しません。"
Exit Sub
End If
With ドライブ容量
MsgBox .TotalSize - .FreeSpace
End With
End Sub
NewキーワードでFileSystemobject【ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄ】のインスタンスを生成して変数「myFSO」の宣言をFileSystemobject型で宣言します。Microsoft Scripting Runtimeへの参照設定が必要です。
3行目【Dim ドライブ容量 As Drive】
Drive【ﾄﾞﾗｲﾌﾞ】オブジェクトを格納する変数「ドライブ容量」をオブジェクト型のDriveで宣言します。
4行目【If myFSO.DriveExists(“C”) Then】
If【ｲﾌ】ステートメント（条件分岐）でDriveExists【ﾄﾞﾗｲﾊﾞｰｲｸﾞｽﾞｨｽﾄｩ】メソッドを使用してCドライブの存在を確認してCドライブが存在していたときを定義します。
5行目【Set ドライブ容量 = myFSO.GetDrive(“C”)】
オブジェクト型変数ドライブ容量にSetキーワードを使用してCドライブが存在していた場合にGetDrive【ｹﾞｯﾄﾄﾞﾗｲﾌﾞ】メソッドでCドライブのDrive【ﾄﾞﾗｲﾌﾞ】オブジェクトを作成して変数「ドライブ容量」に代入します。
7行目～8行目
【MsgBox “ドライブが存在しません。”
Exit Sub】
4行目の条件分岐で成立しなかったとき（値がFalse)すなわち、Cドライブが存在しない場合
メッセージを表示してマクロを中止します。
9行目【With ドライブ容量】
With【ｳｨｽﾞ】ステートメントでCドライブのDriveオブジェクトが格納されている変数「ドライブ容量」を指定します。
10行目【MsgBox .TotalSize – .FreeSpace】
With【ｳｨｽﾞ】ステートメントで指定したCドライブのDriveオブジェクトが格納されている変数「ドライブ容量」のTotalSize【ﾄｰﾀﾙｻｲｽﾞ】プロパティでCドライブの総容量を取得しFreeSpace【ﾌﾘｰｽﾍﾟｰｽ】プロパティでCドライブの空き容量を取得して総容量から空き容量を減算することで使用容量を求め、MsgBox関数を利用してドライブの使用容量を表示します。
以上で、ドライブの操作や取得をするFSOのメソッドやプロパティについての解説を終了します。ありがとうございました。