#097
FileSystemObjectオブジェクトの中のDriveオブジェクトの"IsReadyプロパティ"を使うと、フロッピーディスクが準備されているかどうか確認することができます。DriveTypeのIF文のところの値を変えることによって、CD-ROMの準備を確認することもできます。
サンプルプロシージャ：
Public Function IsReadyFD() As Boolean
Dim Fso As Object
Dim Drv As Object
'FileSystemObjectオブジェクトを生成します
Set Fso = CreateObject("Scripting.FileSystemObject")
'Drivesコレクション内の各ドライブの情報を列挙します
For Each Drv In Fso.Drives
With Drv
'そのドライブがフロッピーディスクかどうか調べます
If .DriveType = 1 Then
'フロッピーディスクが準備されているかどうかを
'返り値に設定します
IsReadyFD = .IsReady
Exit For
End If
End With
Next Drv
End Function
Dim Fso As Object
Dim Drv As Object
'FileSystemObjectオブジェクトを生成します
Set Fso = CreateObject("Scripting.FileSystemObject")
'Drivesコレクション内の各ドライブの情報を列挙します
For Each Drv In Fso.Drives
With Drv
'そのドライブがフロッピーディスクかどうか調べます
If .DriveType = 1 Then
'フロッピーディスクが準備されているかどうかを
'返り値に設定します
IsReadyFD = .IsReady
Exit For
End If
End With
Next Drv
End Function
使用例：
If IsReadyFD() Then
MsgBox "処理を開始します！", vbOKOnly + vbInformation
Else
MsgBox "フロッピーディスクを挿入してください！", vbOKOnly + vbExclamation
End If
MsgBox "処理を開始します！", vbOKOnly + vbInformation
Else
MsgBox "フロッピーディスクを挿入してください！", vbOKOnly + vbExclamation
End If
