スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文  Object.DriveLetter              取得のみ
      Object.DriveType                取得のみ

設定項目        内容
Object          Driveオブジェクトを指定［省略不可］

DriveオブジェクトのDriveLetterプロパティはドライブ名を返します。DriveTypeプロパティはドライブの種類を返します。
DriveオブジェクトはFileSystemObjectオブジェクトの参照設定を行ってから使用します。参照設定は、［ツール］メニューから［参照設定］コマンドを選択して、［参照設定］ダイアログボックスを表示します。ダイアログボックスが表示されたら一覧から「Microsoft Scripting Runtime」をチェックして［OK］ボタンをクリックします。

サンプルは、Drivesコレクションのドライブ名とドライブの種類をすべて［イミディエイト］ウィンドウに表示します。

●サンプル●
'ドライブ名とドライブの種類を取得する
'   [ツール]−[参照設定]で「Microsoft Scripting Runtime」をチェック
Sub Sample()

    Dim myFileSystem  As New Scripting.FileSystemObject
    Dim myDrive       As Scripting.Drive
    Dim myDriveType() As Variant

    'ドライブの種類を配列に設定しておく
    myDriveType = Array("不明", "リムーバブル ディスク", _
         "ハードディスク", "ネットワークドライブ", "CD-ROM", "RAMディスク")

    'すべてのドライブの名前と種類を表示する
    For Each myDrive In myFileSystem.Drives
        Debug.Print myDrive.DriveLetter & _
                "：" & myDriveType(myDrive.DriveType)
    Next

End Sub

●実行結果例●
A：リムーバブル ディスク
C：ハードディスク
D：CD-ROM
M：ネットワークドライブ