アクセスで

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

No.1 ベストアンサー 回答者： maruru01 回答日時： 2002/02/25 17:24

こんにちは。

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かどうか）を確認して下さい。
では。

この回答へのお礼

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

お礼日時：2002/02/26 09:37