アクセスで

質問

access2000を使用しています。
フロッピーのデータをアクセスにインポートする処理を作っているのですが、インポート処理をする前にフロッピードライブにフロッピーが入っているかどうかのチェックを行いたいです。
よろしくお願いします。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。
とりあえずの方法ですが、エラー番号を拾うというやり方です。
フロッピードライブがAドライブだとすると、

Dim Ret As String

On Error Resume Next
Ret = Dir("A:\", vbDirectory)
If Err.Number = 52 Then
　　MsgBox "フロッピーディスクが準備されていません。", vbCritical
　　Err.Number = 0
Else
　　MsgBox "フロッピーディスクは準備されています。", vbInformation
　　Err.Number = 0
End If

要は、Dir関数のところで発生するエラーを拾うということです。
これは、CD-ROMやMOなどの他のリムーバブルドライブでも同様なので、転用出来ます。
一応エラーナンバー（52かどうか）を確認して下さい。
では。

お礼

ありがとうございます。
大変勉強になりました。