ドライブが準備できているかどうかを調べる【IsReadyプロパティ】【FileSystemObject】【ExcelVBA】

構文

Object.IsReady

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

Public Sub sample()

    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    '■ドライブが準備されているかどうかチェック
    Debug.Print fso.GetDrive("D").IsReady ' 準備済ならばTrue / されてなければFalse
        
    '■ドライブが準備されているかどうか以前に、ドライブが存在しなければエラー
    Debug.Print fso.GetDrive("Z").IsReady     '実行時エラー '68' デバイスが準備されていません or クラスが登録されていません
    
    '■IF文で記載する場合は以下。
    If fso.GetDrive("C").IsReady Then
        Debug.Print "True"
    Else
        Debug.Print "False"
    End If
    
End Sub

注意点

• DVDドライブやSDカードのUSB変換器などの場合、ドライブはあるが、実際にDVDやSDカードが存在しない場合があります。そのときに使用するプロパティです。

関連記事

• ドライブの存在を調べる【DriveExistsメソッド】【FileSystemObject】
• カレントドライブを取得する【CurDir関数】
• カレントドライブを変更する【ChDriveステートメント】