为什么我的数据库备份不成功！

[bingxue606]

Public hxfyn As Integer
Public xtlj As String

Private Sub Command1_Click()
If Left(Trim(d1.Drive), 2) <> "a:" And Left(Trim(d1.Drive), 2) <> "b:" And Left(Trim(d1.Drive), 2) <> "A:" And Left(Trim(d1.Drive), 2) <> "B:" Then
hxfyn = MsgBox("应选择软盘驱动器,请重选!", 48)
Else
On Error GoTo ER:
Me.Caption = "正在复制文件，请等待....."
FileCopy xtlj & "db4.mdb", Trim(d1.Drive) + "\" & "db4.mdb"
'FileCopy xtlj & "lfbzk.mdb", Trim(d1.Drive) + "\" & "lfbzk.mdb"
Me.Caption = "标准库备份"
hxfyn = MsgBox("复制完成!", 48)
Unload Me
End If
GoTo en
ER: hxfyn = MsgBox("磁盘未准备好或写保护等错误,请处理后再进行!", 48)
en: End Sub

Private Sub Command2_Click()

Unload Me
End Sub
其中xtlj = App.Path + "\"
当我点击执行时，可以把数据库备份到A盘，然后又提示“磁盘未准备好或写保护等错误,请处理后再进行”出错信息，我到A盘可以打开数据库，里面有两个表，一个备份成功，另一个却是乱码，这是怎么回事啊，希望各位高手能帮我看一下我的程序有什么问题，为什么执行了备份还会执行出错提示问题。谢谢！

[zsgzsgzsg]

hxfyn = MsgBox("复制完成!", 48)
Unload Me
exit sub

[wxy001]

干吗不用
CopyFile("源路径", "目的路径", False)
也可用
filecopy

[xks]

http://expert.csdn.net/Expert/topic/1665/1665239.xml?temp=.6093256

[chenyu5188]

hxfyn = MsgBox("复制完成!", 48)
unload me
exit sub
End If
ER: hxfyn = MsgBox("磁盘未准备好或写保护等错误,请处理后再进行!", 48)
End Sub

[onebody]

为何不用
Copyfile呢

[bingxue606]

呵呵，谢谢各位的帮忙，那个代码我修改好了。