Accessでのファイルコピーについて

質問

質問させていただきます。
Access97を使用しております。
あるデータMDBをMOへコピーする（フォームからボタンを押したときに目的のMDBがコピーされる）ようにしたのですが、MOの装着を確認できるようにするにはどうすればよいでしょうか？
・MOが正しく装着されていればコピー開始
・MOが装着されていなければ装着を促すメッセージを　表示（MOが装着されるまでコピーされない。または　　　　キャンセルする）
以上、よろしくお願いします。

回答No.4

ja7awu · ベストアンサー

> ディスクの有無に関わらず、「実行時エラー：71　ディスクが準備されていません」
> となります。

「有無に関わらず」というのはちょっと変ですが、ドライブ名を実際のに直してますよね。
2ヶ所ですが・・・。

あと、ちょっと勘違いしていました。媒体のセット確認ですよね。ＨＤと同じに考えていました。
次のように直してみてください。

Private Sub コマンド0_Click()
Dim Res As Integer
On Error Resume Next
Do While Dir("F:") = ""
　　If Err.Number <> 0 Then
　　　　Res = MsgBox("ＭＯの準備が出来ていません" & vbCrLf & vbCrLf & _
　　　　　　"準備が出来たら[ＯＫ]を押してください。", _
　　　　　　vbOKCancel + vbExclamation, "ＭＯ準備確認")
　　　　If Res = vbCancel Then Exit Sub
　　End If
　　Err.Number = 0
Loop
FileCopy "C:\test\test.mdb", "F:\bak\test.mdb"
If Err.Number <> 0 Then
　　MsgBox "ファイルが存在しないか、使用中です。コピー出来ません。", vbCritical
　　Exit Sub
Else
MsgBox "ファイルをＭＯにコピーしました。"
End If
End Sub

お礼

早速のご連絡ありがとうございます。
目的のものができました。
大変ありがとうございました。

回答No.3

ja7awu

例えば、こんな感じで如何でしょうか。

MOのドライブを F: として、既に F:\bak のフォルダがあるものとします。

但し、現在開いているファイルはコピーできません。(メッセージが出ます。)

Private Sub コマンド0_Click()
Dim Res As Integer
Do While Dir("F:") = ""
　　Res = MsgBox("ＭＯの準備が出来ていません" & vbCrLf & vbCrLf & _
　　　　　　"準備が出来たら[ＯＫ]を押してください。", _
　　　　　　vbOKCancel + vbExclamation, "ＭＯ準備確認")
　　If Res = vbCancel Then Exit Sub
Loop
On Error Resume Next
FileCopy "C:\test\test.mdb", "F:\bak\test.mdb"
If Err.Number <> 0 Then
　　MsgBox "ファイルが存在しないか、使用中です。コピー出来ません。", vbCritical
　　Exit Sub
Else
　　MsgBox "ファイルをＭＯにコピーしました。"
End If
End Sub

補足

回答ありがとうございます。
試してみたのですがディスクの有無に関わらず、
「実行時エラー：71　ディスクが準備されていません」となります。
引き続きいろいろと試してみます。

回答No.2

yoko3333

API関数ですが・・・。

空耳工房
http://www.bea.hi-ho.ne.jp/my2project/

こちらのサイトで「VB」-「システム環境取得設定関連」-「ディスクが挿入されているかを調べる」というのがあります。
私はFDのチェックしかやったことがないのですが、たぶんMOでもOKじゃないでしょうか。

もしくは、チェックせずにいきなりコピー処理を実行して、エラー内容で拾うことも可能です。
（ただし、こちらもFDの場合です。MOでは違うかも・・・。）

Private Sub コピー処理()
On Error GoTo Err_コピー処理

'コピー処理

Exit_コピー処理:
Exit Sub

Err_コピー処理:
Beep

If Err.Number = 70 Then
MsgBox "このディスクはライトプロテクトされています。ライトプロテクトを解除するか、別のディスクを挿入してください。", vbExclamation, "エラー"

ElseIf Err.Number = 71 Then
MsgBox "ディスクを挿入してください。", vbExclamation, "エラー"

ElseIf Err.Number = 76 Then
MsgBox "設定ファイルに無効なディレクトリが指定されています。", vbExclamation, "エラー"

Else
MsgBox Error$

End If

Resume Exit_コピー処理

End Sub

お礼

早速の回答ありがとうございます。
参考にさせていただきます。

回答No.1

gatyan

a$=dir("x:\*.*") を実行してエラーにならなかったら入っているってことになりませんか？
x:は、MOのドライブ名で。
（テストしてません）

お礼

早速の回答ありがとうございます。
参考にさせていただきます。