[已解决]运行时错误'70':拒绝的权限

zamyi

如果改为下面，怎么都不行：
fso.CopyFile "d:\1.txt", Application.StartupPath & "\1.txt"

爱疯

zamyi 发表于 2012-11-2 19:38
如果改为下面，怎么都不行：
fso.CopyFile "d:\1.txt", Application.StartupPath & "\1.txt"

Sub Test2()
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile "d:\1.txt", "c:\"
'    Debug.Print Application.StartupPath
'    fso.CopyFile "d:\1.txt", Application.StartupPath & "\1.txt"
End Sub

能执行这句吗

ch_liu2000

我也碰到这个问题,后来发现,原来是该路下已经存在有相同的一份文件,如果删除就不会出错了.

lizhaoyu

我在后面加个“\”就得了，代码的路径就是要多一个\,否则就是提示拒绝的权限。