如何将一个目录下的所有文件(包括文件夹)拷贝到另一个目录中(像xcopy)

使用FileSystemObject   CopyFolder "C:\test\*","D:\MyDir\"
   CopyFolder "C:\test\","D:\Test\"Sub CopyFolder(Source,Destination)
 Dim FSO
 Set FSO=CreateObject("Scripting.FileSystemObject")
 FSO.CopyFolder Source, Destination
 Set FSO=Nothing
End Sub如果 source 包含了通配字符或者 destination 以路径分隔符 (\) 结束，那么将假定 destination 是一个已有的文件夹，满足匹配的文件夹和子文件夹将复制到这个文件夹中。否则，将假定 destination 是要创建的文件夹名。无论哪种情况，如果复制的是单个文件夹，将会有四种可能。 如果 destination 不存在，将会复制 source 文件夹及其所有子文件夹。这是通常情况。 
如果 destination 是已有的文件夹，将产生一个错误。 
如果 destination 是一个目录，那么将试图复制文件夹及其所有内容。如果 source 中包含的一个文件在 destination 已经有了，那么当 overwrite 为 false 时将会出错。否则会试图用该文件覆盖已有文件。 
如果 destination 是一个只读目录，同时 overwrite 为 false ，那么在试图将已有的只读文件复制到目录中时将会出错。 
如果使用了通配字符的 source 不能匹配任何文件夹，那么将产生错误。CopyFolder 方法在遇到第一个错误时终止。出错后不试图回滚出错前所做的修改。