如何拷贝指定目录下的所有文件（包含子目录）(100分)

同上，请给出大致代码

看看已答问题 ，关于＜<A HREF="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=92662">类似 deltree xcopy 的函数</A>＞
或者
＜<A HREF="http://202.120.85.61/delphibbs/DispQ.asp?LID=119086">问题</A>＞

无非是findfirst,findnext...自己做一个，不算复杂。大不了用递归

上面的用Find之类的太麻烦,最简单的办法：
使用Win32 API函数
ShFileOperation;
(文件操作函数)
具体用法参见Win32 API
例子如下
Uses ShellAPI
function Win_XCOPY(fFROM,fTO:String):boolean;
var FData : TShFileOpStruct;
begin
Fdata.pFrom := PChar(fFrom);
//设立数据源路径和文件、目录名,支持(?, *通配符)
fdata.pTo := PChar(fTo);
//设立目标路径
fdata.wFunc := FO_COPY ;
//设立操作方式
//FO_COPY 拷贝操作 相当于 XCOPY
//FO_MOVE 移动操作 相当于 MOVE
//FO_DELETE 删除操作 相当于 DELTREE
FData.Wnd := application.Handle ;
fData.lpszProgressTitle := 'Wait';
//设立提示窗标题
fData.fFlags := FOF_ALLOWUNDO OR FOF_NOCONFIRMMKDIR;
//设定操作选项
result:=ShFileOperation( FData ) = 0 ;
end;

接受答案了.