FileSystemObject

ドライブの種類を取得する【DriveTypeプロパティ】【FileSystemObject】【ExcelVBA】

2022.10.10

構文

Drive.DriveType

DriveType・・・・指定したドライブの種類を取得する

Driveに指定したドライブ種類を取得します。
ドライブ種類は以下。

値 種類
0 不明
1 リムーバブルディスク
2 ハードディスク
3 ネットワークドライブ
4 CD-ROMドライブ
5 RAMディスク

DriveTypeプロパティのサンプルコード

Public Sub sample()
    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
            
    '■ドライブ種類を取得
    Debug.Print fso.GetDrive("C").DriveType   '2
    Debug.Print fso.GetDrive("C:").DriveType  '2
    Debug.Print fso.GetDrive("C:\").DriveType '2
    
    '■種類を文字に変換する場合
    Select Case fso.GetDrive("C").DriveType
        Case 0
            Debug.Print "不明"
        Case 1
             Debug.Print "リムーバブルディスク"
        Case 2
             Debug.Print "ハードディスク"
        Case 3
             Debug.Print "ネットワークドライブ"
        Case 4
             Debug.Print "CD/DVDドライブ"
        Case 5
             Debug.Print "RAMディスク"
    End Select
End Sub

注意点

  • 特にありません

関連記事

コメント