filecopy 提示拒绝的权限

Question

            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      
  最后一句，总提示拒绝权限，不知道为什么                  

Answer 1

文件或目录你的程序没有写权限

Answer 2

文件被独占打开了，或者设置了只读标志，或者无权限（可能性较小），如果是被独占打开，则关闭后再复制，如果是只读，则复制前设置成不只读。