如何将一个目录拷贝至另一个目录(包括子目录),很急,谢谢!!

Question

只是拷贝其中的目录,而不要文件.
例如c:\abc拷贝至d;\abc,其中c:\abc的所有子目录也一并复制过来,当然不要其中的文件.
各位大哥,帮帮我呀

Answer 1

引用FSO
DIM FS AS NEW FILESYSTEMOBJECTFS.COPYFOLDER "C:\TEST1","C:\TEST2"

Answer 2

引用Microsoft Scripting RuntimeDim fsoTest As New FileSystemObject
Dim folder1 As FolderPrivate Sub Command1_Click()'复制文件夹
fsoTest.CopyFolder "c:\abc", "d:\abc", TrueEnd Sub

Answer 3

使用CopyFolder会把其中的文件也一并拷贝过来,我只要其中的所有目录,而不需要其中的任何文件.各位大哥,再帮我想想办法把.在线等.....

Answer 4

cuizm(射天狼) ( )说得对。

Answer 5

感谢大家,特别是cuizm(射天狼),我已经解决了