请教这段复制文件夹的代码，原来可以运行的，现在出错了
请问这段复制文件夹的代码，原来可以运行的，现在出错了
Dim obj
Set obj = CreateObject("scripting.filesystemobject")
obj.copyfolder "d:\test", "e:\tt"
End Sub
这段代码原来在XP也可以运行的，现在在XP下运行提示“运行时错误 70 拒绝的权限”
但是，现在在win7运行下也没有出错，请问怎么解决在XP下的出错问题。
------解决思路----------------------
e盘是啥盘？你用fso创建一个目录试试能不能成功运行
------解决思路----------------------
权限问题？......
------解决思路----------------------
因为复制文件与自身文件重名!
------解决思路----------------------
你测试一下手动能不能复制成功
然后把源和目标都换换看看能不能成功
本帖最后由 temp12_3 于 2015-01-07 13:07:16 编辑
Sub tt()Dim obj
Set obj = CreateObject("scripting.filesystemobject")
obj.copyfolder "d:\test", "e:\tt"
End Sub
这段代码原来在XP也可以运行的，现在在XP下运行提示“运行时错误 70 拒绝的权限”
但是，现在在win7运行下也没有出错，请问怎么解决在XP下的出错问题。
------解决思路----------------------
e盘是啥盘？你用fso创建一个目录试试能不能成功运行
------解决思路----------------------
权限问题？......
------解决思路----------------------
因为复制文件与自身文件重名!
------解决思路----------------------
你测试一下手动能不能复制成功
然后把源和目标都换换看看能不能成功