求助有关在VB中备份、还原Access数据库的问题？？急急急！

Question

为什么不用filecopy或api的次copyfile

Answer 1

试了filecopy，但当还原时找不到要还原Access数据库时，如果要弹出"数据库不存在"之类的对话框，应该怎样写呢？能不能给我代码啊？求求大家了，急啊！

Answer 2

Private Sub mnubeifen_Click()
Dim mfile As String, mfile2 As String
On Error Goto EH
CommonDialog.CancelError = True
CommonDialog1.Filter = "(*.mdb)|*.mdb"
CommonDialog1.FileName = App.Path & "\Backup\" & Format(Now(),"yyyymmdd_HHnn") & ".mdb"
CommonDialog1.ShowSave
mfile = App.Path & "\WageManage.mdb" '要备份的文件为当前文件夹下的 WageManage.mdb
mfile2 = CommonDialog1.FileName '得到目标文件的路径If MsgBox(Dir(mfile2) & " 文件已经存在，是否替换？", vbYesNo, "警告") = vbNo Then Exit Sub
Else
Kill mfile2
End If'需要引用 DAO 3.6
DBEngine.CompactDatabase mfile, mfile2, , , ";pwd=你的数据库密码"
MsgBox "备份完毕！"
Exit SubEH:
If Err.Number = cdlCancel Then Exit Sub
MsgBox "RunTime Error: " & Err.Number & vbCrLf & Err.Description
End SubPrivate Sub mnuhuifu_Click()
Dim mfile As String, mfile2 As String
On Error Resume Next
CommonDialog1.Filter = "(*.mdb)|*.mdb"
CommonDialog1.ShowOpen
mfile = CommonDialog1.FileName '得到别处的Access文件的路径
mfile2 = App.Path & "\WageManage.mdb" '要覆盖掉当前文件夹下的 WageManage.mdb
If Trim(mfile) = "" Then Exit Sub
If MsgBox("是否恢复数据库？", vbYesNo, "警告") = vbNo Then Exit Sub
If Dir(mfile)="" Then
Msgbox "文件 " & mfile & " 没有找到！"
Exit Sub
End If
Kill mfile2
CopyFile mfile, mfile2
MsgBox "恢复完毕！"
End Sub！"

Answer 3

怎么觉得这里好象有点问题？
If MsgBox(Dir(mfile2) & " 文件已经存在，是否替换？", vbYesNo, "警告") = vbNo Then Exit Sub
Else
Kill mfile2
End If

Answer 4

请问下面的程序是什么意思？小弟刚学，看不懂啊？
EH:
If Err.Number = cdlCancel Then Exit Sub
MsgBox "RunTime Error: " & Err.Number & vbCrLf & Err.Description

Answer 5

备份那里运行会显示“RunTime Error:424 要求对象”
怎么回事阿？