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

A 回答 (1件)

こんにちは。

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かどうか)を確認して下さい。
では。
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このカテゴリの人気Q&Aランキング

おすすめ情報