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