filecopy 提示拒绝的权限

Mashlino_lily 2012-09-27 10:13:13
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
最后一句,总提示拒绝权限,不知道为什么
...全文
412 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
Mashlino_lily 2012-09-28
  • 打赏
  • 举报
回复
确实是被占用了,谢谢大家
lyserver 2012-09-27
  • 打赏
  • 举报
回复
文件被独占打开了,或者设置了只读标志,或者无权限(可能性较小),如果是被独占打开,则关闭后再复制,如果是只读,则复制前设置成不只读。
knife4325 2012-09-27
  • 打赏
  • 举报
回复
文件或目录你的程序没有写权限
贝隆 2012-09-27
  • 打赏
  • 举报
回复
文件不能被复制。

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧