filecopy 语句没执行 请问 是 什么 原因
我的语句如下 我准备实现数据、库的备份，保存到指定的位置
可是没执行 ，也没有提示错误 ，请问 错误在那里阿
On Error Resume Next

cmndlog.Action = 2 '//保存对华框
savefile = cmndlog.FileName '// 获取保存路径
namefile = cmndlog.FileTitle '／／获取保存的名子
targetf = savefile
If namefile = " " Then
MsgBox "没有给备份的数据库命名 ", , "提示信息 "
Exit Sub
Else
openfile = "\\Chenrf\共享文档\资料系统\资料库.mdb "
FileCopy openfile, targetf
MsgBox "资料库备份成功 ", , "备份成功 "
End If

[解决办法]
On Error Resume Next
－－
把这条去了，错误才能出得来啊！！
[解决办法]
FileCopy openfile, targetf 设置断点检查是否执行了代码!
[解决办法]
没有写权限！或文件已经打开（其它用户）！