Driveオブジェクト - IsReadyプロパティ


【書式】

Drive.IsReady

ドライブの準備ができているきTrueを返します。

FDやCD-ROMドライブなどメディアを挿入するドライブでは、メディアが挿入されているかどうかがわかります。

Sub test31()
    Dim FSO As Object, DriveObject As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''Aドライブ(FD)にメディアが挿入されているかどうかを表示します
    If FSO.GetDrive("A").IsReady Then
        MsgBox "準備完了", vbInformation
    Else
        MsgBox "FDを挿入してください", vbExclamation
    End If
    Set DriveObject = Nothing
    Set FSO = Nothing
End Sub