MoveFolder 方法

爱疯

我试来试去，还是没移动文件夹。

对此，可否给个示例，谢谢!

开辆小富康

Sub MyMovefolder()
Dim fs As Object
Set fs = CreateObject("scripting.filesystemobject")
fs.movefolder "E:\EXCEL\提取数据", "E:\"
End Sub
你把"E:\EXCEL\提取数据", 换成你文件上有的文件夹，注意是文件夹不是文件。把"E:\",换成你想移动到的目标位置，注意最后要加"\",不能光 写成"E:"

爱疯

MoveFolder 方法

为什么我的不行呀[em09]

开辆小富康

VBA错误信息:权限被否定（错误 70）
试图对写保护的磁盘进行写操作，或要访问加锁文件。

爱疯

我在家又试了2楼，还是：

运行时错误'70'

拒绝的权限

开辆小富康

这个我也不知道了。反正在我电脑上是成功了好多回了。

爱疯

QUOTE:

以下是引用开辆小富康在2010-2-14 21:54:00的发言：

这个我也不知道了。反正在我电脑上是成功了好多回了。

你的成功？好多回？

。。。[em11]

开辆小富康

QUOTE:

以下是引用爱疯在2010-2-14 21:57:00的发言：

你的成功？好多回？

。。。[em11]

你不是说我二楼的代码吗？我就用这个代码运行了好多回，还手动把文件夹移回去好多回呢。我傻啊，应该再写一个程序移回去，只不过路径对调一下嘛。看来不是代码的问题啊，你得检查自己的电脑。不会是电脑上硬盘有坏道了吧。

[em01][em01]

吓你的。

你不会没E盘吧？

爱疯

QUOTE:

以下是引用开辆小富康在2010-2-14 22:07:00的发言：

你不是说我二楼的代码吗？我就用这个代码运行了好多回，还手动把文件夹移回去好多回呢。我傻啊，应该再写一个程序移回去，只不过路径对调一下嘛。看来不是代码的问题啊，你得检查自己的电脑。不会是电脑上硬盘有坏道了吧。

[em01][em01]

吓你的。

你不会没E盘吧？

E盘还有口气，不知其他人运行，出不出错。

无奈中[em22]