filecopy 语句没执行 请教 是 什么 原因

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 设置断点检查是否执行了代码!
[解决办法]
没有写权限！或文件已经打开（其它用户）！