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

Question

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

Answer 1

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

Answer 2

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

Answer 3

//复制目录树
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;