怎么样只复制文件夹不复制下面的文件？

复制文件和目录树。

XCOPY source [destination] [/A | /M] [/D[:date]] [/P] [/S [/E]] [/V] [/W]
[/C] [/I] [/Q] [/F] [/L] [/G] [/H] [/R] [/T] [/U]
[/K] [/N] [/O] [/X] [/Y] [/-Y] [/Z]
[/EXCLUDE:file1[+file2][+file3]...]

source 指定要复制的文件。
destination 指定新文件的位置和/或名称。
/A 只复制有存档属性集的文件，
但不改变属性。
/M 只复制有存档属性集的文件，
并关闭存档属性。
/D:m-d-y 复制在指定日期或指定日期以后改变的文件。
如果没有提供日期，只复制那些源时间
比目标时间新的文件。
/EXCLUDE:file1[+file2][+file3]...
指定含有字符串的文件列表。如果有任何
字符串与要被复制的文件的绝对路径
相符，那个文件将不会得到复制。
例如，指定如 \obj\ 或 .obj 的字符串会排除
目录 obj 下面的所有文件或带有
.obj 扩展名的文件。
/P 创建每个目标文件前提示。
/S 复制目录和子目录，除了空的。
/E 复制目录和子目录，包括空的。
与 /S /E 相同。可以用来修改 /T。
/V 验证每个新文件。
/W 提示您在复制前按键。
/C 即使有错误，也继续复制。
/I 如果目标不存在，又在复制一个以上的文件，
则假定目标一定是一个目录。
/Q 复制时不显示文件名。
/F 复制时显示完整的源和目标文件名。
/L 显示要复制的文件。
/G 允许将没有经过加密的文件复制到
不支持加密的目标。
/H 也复制隐藏和系统文件。
/R 改写只读文件。
/T 创建目录结构，但不复制文件。不
包括空目录或子目录。/T /E 包括
空目录和子目录。
/U 只复制已经存在于目标中的文件。
/K 复制属性。一般的 Xcopy 会重设只读属性。
/N 用生成的短名复制。
/O 复制文件所有权和 ACL 信息。
/X 复制文件审核设置(隐含 /O)。
/Y 禁止提示以确认改写一个
现存目标文件。
/-Y 导致提示以确认改写一个
现存目标文件。
/Z 用重新启动模式复制网络文件。

如果只复制文件夹 用参数 /T /E
例如 将D:\data 下面的所有文件夹 复制到 d:\data2 下面
xcopy d:\data d:\data2 /T /E

你试一下吧，保证管用：）

别忘了给我加分哦！！！

可以把那个总的文件夹备份一个，再从DOS下进入那个文件夹，用DEL *.* /s命令删除所有文件夹下的所有文件，保留文件夹，应该可以。一定要进入第一层总的文件夹下用这个命令

扩展名不乱的情况下，可以先全部备份一份，在按扩展名查询那个文件夹，找到，全部删了－ －

把那里面的文件全“隐藏”，不过也比较麻烦

呵呵，时间不多，只好草草写了这段ASP代码
<%
On Error Resume Next
'---------------需要拷贝的文件夹-------------
Const firstFolderPath="e:\test"
'---------------新建立的文件夹------------------
Const newFirstFolderPath="d:\test"
Dim newSecondFolderPath,newThirdFolderPath

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder (newFirstFolderPath)
'----------------------------------------------------
Set f1 = FSO.GetFolder(firstFolderPath)
Set firstSubFolders = f1.SubFolders
For Each firstSubFolder in firstSubFolders
'---start----遍历所有文件夹------
response.Write firstSubFolder.name&"
"
newSecondFolderPath=newFirstFolderPath&"\"&firstSubFolder.name
FSO.CreateFolder(newSecondFolderPath)
'--------------------------------------
set f2=FSO.GetFolder(firstSubFolder.path)
set secondSubFolders=f2.SubFolders
For Each secondSubFolder in secondSubFolders
response.Write "-----"&secondSubFolder.name&"
"
newThirdFolderPath=newSecondFolderPath&"\"&secondSubFolder.name
FSO.CreateFolder(newThirdFolderPath)
Next
'----------------------------------------
response.Write "
"
'---end------------
Next
%>