関連項目                  対象

機能

指定されたドライブの種類を示す値を返します。

構文

object.DriveType

object には、Drive オブジェクトの名前を指定します。

解説

次のコードは、DriveType プロパティの使用例です。

Sub ShowDriveType(drvpath)
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(drvpath)
    Select Case d.DriveType
        Case 0: t = "不明"
        Case 1: t = "リムーバブル ディスク"
        Case 2: t = "ハード ディスク"
        Case 3: t = "ネットワーク ドライブ"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM ディスク"
    End Select
    s = "ドライブ " & d.DriveLetter & ": - " & t
    MsgBox s
End Sub