按键精灵中如何复制和移动文件夹！

Set fso = CreateObject("Scripting.FileSystemObject")

Fso.CopyFolder "源文件路径", "复制的文件路径", True //True：覆盖，False：不覆盖Fso.MoveFolder "源文件路径", "复制的文件路径" //这句话没有权限，我本人不清楚原因。

可以用复制文件，再删除文件代替移动：

Set fso = CreateObject("Scripting.FileSystemObject")

Fso.CopyFolder "源文件路径", "复制的文件路径", True

Fso.DeleteFolder "源文件路径"

上面代码本人测试过，已经成功了。

用FSO对象的copy方法来进行复制

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)

MyFile.WriteLine("This is a test.")

MyFile.Close

Set MyFile = fso.GetFile("c:\testfile.txt")

MyFile.Copy ("c:\windows\desktop\test2.txt")

这样就可以了。

---