filecopy 揭示拒绝的权限

filecopy 提示拒绝的权限
CommonDialog1.ShowOpen
  LuJing = CommonDialog1.FileName
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & LuJing & ";Persist security info=false"
  Adodc1.RecordSource = "select * from NongduBiao"
  Adodc1.Refresh
  PathName = InputBox$("请输入备份文件的路径及文件名; 例如c:\db20120920.mdb")
  If PathName = "" Then
  MsgBox "路径或文件名为空！", vbCritical, "错误"
  Else

  FileCopy LuJing, PathName  
  最后一句，总提示拒绝权限，不知道为什么

[解决办法]
文件不能被复制。
[解决办法]
文件或目录你的程序没有写权限
[解决办法]
文件被独占打开了，或者设置了只读标志，或者无权限（可能性较小），如果是被独占打开，则关闭后再复制，如果是只读，则复制前设置成不只读。