ドライブ（Drives コレクション）を取得する（Drives プロパティ）
FileSystemObject（FSO）を使用して、PCで使用できるすべてのドライブ（Drives コレクション ）を取得します。FileSystemObject（FSO）のインスタンスを生成する方法は、ファイルシステムオブジェクト（FileSystemObject）の使い方 を参照してください。
【書式】
object.Drives
引数・戻り値
- object ・・・ FileSystemObject オブジェクトを指定します。
Drives コレクションのプロパティ
Count プロパティ
ドライブ数を取得します。
【書式】
object.Count
引数・戻り値
- object ・・・ Drives コレクションを指定します。
Item プロパティ
指定したドライブの Drive オブジェクトを取得します。
【書式】
object[ .Item ] ( key )
引数・戻り値
- object ・・・ Drives コレクションを指定します。
- key ・・・ ドライブを表す文字列を指定します。（ドライブ文字（c）、ドライブ文字とコロン（c:）、ドライブ文字とコロンとパス区切り文字（c:\）など）。
Drive オブジェクト のプロパティに関しては、Drive オブジェクトの主なプロパティ を参照してください。
Drives プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
Sub Sample_Drives() Dim fso As New FileSystemObject Dim myDrives As Drives Dim myDrive As Drive Dim i As Long Dim dtype As String Set myDrives = fso.Drives i = 1 Cells(i, 1) = "ドライブ名" Cells(i, 2) = "種類（値）" Cells(i, 3) = "ドライブの準備" For Each myDrive In myDrives With myDrive i = i + 1 Cells(i, 1) = .DriveLetter Select Case .DriveType Case Removable: dtype = "リムーバブルディスク" Case Fixed: dtype = "ハードディスク" Case Remote: dtype = "ネットワークドライブ" Case CDRom: dtype = "CD-ROM" Case RamDisk: dtype = "RAMディスク" Case Else: dtype = "不明" End Select Cells(i, 2) = dtype Cells(i, 3) = IIf(.IsReady, "準備完了", "準備出来ていません") End With Next myDrive End Sub |
実行結果
