Drivesコレクションを取得する【Drivesプロパティ】【FileSystemObject】【ExcelVBA】

構文

Object.Drives

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

Public Sub sample()

    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim drv As Variant
    
    '■すべてのドライブを表示する
    For Each drv In fso.Drives
        Debug.Print drv.DriveLetter
    Next drv
    
    '例)
    'C
    'D
    'E
End Sub

注意点

• 戻り値はString型ではなく、Object型です。

関連記事

• ファイルの存在を調べる【FileExistsメソッド】【FileSystemObject】
• フォルダの存在を調べる【FolderExistsメソッド】【FileSystemObject】
• ドライブの存在を調べる【DriveExistsメソッド】【FileSystemObject】
• ドライブが準備できているかどうかを調べる【IsReadyプロパティ】【FileSystemObject】