请问如果将某个目录下的所有文件（包括子目录、隐藏文件、系统文件、只读文件）拷贝到另外一个目录下？

[AMinfo]

请大家帮忙：我想实现将一个目录下的所有文件，包括子目录、隐藏文件、系统文件、只读文件，全部拷贝到另外一个目录中，请大家帮忙，谢谢!

[AMinfo]

谁能帮忙？分数大赠送

[Surpass]

变通一下：
获得某路径下的所有文件
Option Explicit
Dim fso As New FileSystemObject
Dim Folder As Folder
Dim File As File

Private Sub Command1_Click()
Set Folder = fso.GetFolder("c:\")
For Each File In Folder.Files
MsgBox File.Name
Next
End Sub

[lihonggen0]

引用 Microsoft Scripting Runtime

单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框，然后单击“确定”。



Private Sub Command2_Click()
Dim fsoTest As New FileSystemObject

fsoTest.CopyFolder "c:\temp", "c:\temp2", True

End Sub

[lihonggen0]

在FSO 对象模型中，提供了丰富的有关文件夹操作的方法，这些方法分别是：
FileSystemObject对象有关文件夹的方法：
CreateFolder ：创建一个文件夹 。
DeleteFolder：删除一个文件夹 。
MoveFolder ：移动一个文件夹 。
CopyFolder：复制一个文件夹 。
FolderExists： 查找一个文件夹是否在驱动器上 。
GetFolder ：获得已有Folder对象的一个实例 。
GetParentFolderName： 找出一个文件夹的父文件夹的名称。
GetSpecialFolder： 找出系统文件夹的路径。
Folder对象的方法：
Delete ：创建一个文件夹 。
Move ：移动一个文件夹 。
Copy：复制一个文件夹。
Name：检索文件夹的名称。

[lihonggen0]

fsoTest.CopyFolder 原目录，目标目录，是否覆盖原文件


fsoTest.CopyFolder "c:\temp", "c:\temp2", False

[AMinfo]

谢谢您！可是这个只能拷贝当前目录下的文件跟目录，不能拷贝子目录下，不能实现XCOPY 的功能啊？请帮我再回复，谢谢您！先加20分

[lihonggen0]

CopyFolder能拷贝子目录的

[lihonggen0]

这样执行dos命令xcopy:

Shell "xcopy c:\temp\*.* c:\temp2\*.* /e /h "

[Surpass]

lihonggen0(李洪根,用.NET，标准答案来了) 的方法不是很好吗？
就用他的方法吧。