Driveオブジェクト - DriveTypeプロパティ

  1. Home
  2. Excel
  3. VBA
  4. FileSystemObject
  5. Driveオブジェクト

【書式】

Drive.DriveType

ドライブの種類を示す値を返します。値と種類の対応は次の通りです。

値 種類
0 不明
1 リムーバブルディスク
2 ハードディスク
3 ネットワークドライブ
4 CD-ROMドライブ
5 RAMディスク 
Sub test28()
    Dim FSO As Object, DriveNum As Long, msg As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''Cドライブの種類を表示します
    Select Case FSO.GetDrive("C").DriveType
        Case 0: msg = "不明"
        Case 1: msg = "リムーバブルディスク"
        Case 2: msg = "ハードディスク"
        Case 3: msg = "ネットワークドライブ"
        Case 4: msg = "CD-ROMドライブ"
        Case 5: msg = "RAMディスク"
    End Select
    MsgBox "Cドライブは、" & msg & "です"
    Set FSO = Nothing
End Sub