怎样遍历一目录树并将其子目录及文件拷贝到另一地方

[wytwhm]

如题，如有代码请贴出来或发我E-mail：[e-mail],万分感激……………………………………………………………………………………

[Eastunfail]

http://expert.csdn.net/Expert/topic/2095/2095217.xml?temp=.6852533

[happyliy]

只知道单文件拷贝，如果有多遍历一目录树并将其子目录及文件拷贝到另一地方的程序，给我也发一份，My_email : [e-mail],感谢！

[Drate]

//复制目录树
procedure copydirectorytree(ahandle:THandle;const aFromDirectory,aToDirectory:string);
var shfileopstruct:TSHFileOpStruct;
fromdir:pchar;
todir:pchar;
begin
getmem(fromdir,length(afromdirectory)+2);
try
getmem(todir,length(atodirectory)+2);
try

fillchar(fromdir^,length(afromdirectory)+2,0);
fillchar(todir^,length(atodirectory)+2,0);

strcopy(fromdir,pchar(afromdirectory));
strcopy(todir,pchar(atodirectory));

with shfileopstruct do
begin
wnd:=ahandle;
wfunc:=fo_copy;
pfrom:=fromdir;
pto:=todir;
fflags:=fof_noconfirmation;// or fof_renameoncollision;
fanyoperationsaborted:=false;
hnamemappings:=nil;
if shfileoperation(shfileopstruct)<>0 then raiselastwin32error;
end;
finally
freemem(todir,length(atodirectory)+2);
end;
finally
freemem(fromdir,length(afromdirectory)+2);
end;
end;