Question

VB 如何复制指定目录到指定位置

VB 如何复制指定目录到指定位置，如D:PHOTO (里面有若干文件夹或文件。) 复制到 E: （此时复制过来文件夹名称加一个复制过来的日期。）感谢啊，没多少分了

Answer 1

Set fso = CreateObject("Scripting.FileSystemObject")

fso.CopyFolder "C:\test_game", "E:\"

测试通过，后面的日期不自动有么

追问

日期不能搞过去嘛，还有就是 fso.CopyFolder "C:\test_game", "E:\" "C:\test_game" 这个路径能用TEX指定嘛 ，我最想的是解决这个问题，http://zhidao.baidu.com/question/1945764905493045068.html?quesup2&oldq=1

追答

我还是解决这个问题吧，那个问题没看懂……
刚那个是复制文件夹的
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\test.txt", "E:\123.txt"
这个才是复制文件
时间用NOW，要经过字符处理才能成文件名

Answer 2

完全按照你的要求做的，在复制文件的文件名前面增加了复制的日期。