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

我的语句如下我准备实现数据、库的备份，保存到指定的位置
可是没执行，也没有提示错误，请问错误在那里阿
On Error Resume Nextcmndlog.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