filecopy函数的问题错误70,拒绝的权限

cat0320 · 发表于 2012-2-18 21:46:07

本帖最后由 cat0320 于 2012-2-18 22:35 编辑

rivate Sub Command8_Click()
Dim strSource, strDestination As String
strSource = CurrentProject.Path & "\Excel\temp1.xls"
strDestination = CurrentProject.Path & "\Excel\md.xls"
FileCopy strSource, strDestination
End Sub

运行时出错"  错误70,拒绝的权限"
如果我把要复制的文件改成temp1.txt 和md.txt就能复制成功,
  为什么复制.XLS就不行呢

注:我没打开任何.XLS文件,

JosephTan · 发表于 2012-2-19 19:11:54

destination改成这样试试：
strDestination = CurrentProject.Path & "\Excel\"

roych · 发表于 2012-2-19 15:06:05

本帖最后由 roych 于 2012-2-19 15:06 编辑

有人正在打开或者读取吧？如果不是的话，那可能是缓存的问题，重启电脑后再执行就好了。

cat0320 · 发表于 2012-2-20 18:44:02

谢谢楼上的两位,问题已经解决.

简 · 发表于 2014-3-28 12:23:52

怎么解决的呢？

我也遇到这个问题，有时能filecopy，有时又不能，有时又没有反映，而源文件我又没有调用，这是怎么回事呢。

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] filecopy函数的问题错误70,拒绝的权限

群介绍
主题无相 (随机显示版	同地区群块其他地区)

主题相关群

地区相关群[您还没设置居住地]

[窗体] filecopy函数的问题 错误70,拒绝的权限

[窗体] filecopy函数的问题错误70,拒绝的权限