使用可能な全ドライブの種類をワークシートに書き込む

---

アクティブシートのA列に「C」などのドライブ名、B列にドライブの種類を書き込みます。

Sub Sample02()
    Dim FSO As Object, Drv As Variant, cnt As Long, DrvType As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''全てのドライブを調べます
    For Each Drv In FSO.Drives
        cnt = cnt + 1
        Select Case Drv.DriveType
            Case 0:  DrvType = " 不明"
            Case 1:  DrvType = " リムーバブルディスク"
            Case 2:  DrvType = " ハードディスク"
            Case 3:  DrvType = " ネットワークドライブ"
            Case 4:  DrvType = " CD-ROM"
            Case 5:  DrvType = " RAMディスク"
        End Select
        ''シートに書き込みます
        Cells(cnt, 1) = Drv.DriveLetter
        Cells(cnt, 2) = DrvType
    Next Drv
    Set FSO = Nothing
End Sub