機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > FileSystemObject

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



【書式】
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



このエントリーをはてなブックマークに追加