怎么把整个文件夹里的文件统统拷贝到指定的目录？

Question

最简单最快的方法是什么？谢谢！

Answer 1

procedure TForm1.copyPathFile(strSourFilePath:string;DeFieldpath:string);
//将一个文件夹内文件复制到另外一个文件夹内
var
 OpStruc:TSHFileOpStruct;
  FromBuf,ToBuf:Array[0..128] of Char;
begin
  try
    FillChar(FromBuf,Sizeof(FromBuf),0);
    FillChar(ToBuf,Sizeof(ToBuf),0);
    StrPCopy(FromBuf,Pchar(strSourFilePath));
//strSourFilePath
    StrPCopy(ToBuf,Pchar(DeFieldpath));
       with OpStruc do
    begin
      Wnd:=handle;
      wFunc:=FO_COPY;
      pFrom:=@FromBuf;
      pTo:=@ToBuf;
      fFlags:=FOF_NOCONFIRMATION or FOF_MULTIDESTFILES or FOF_SIMPLEPROGRESS;// or FOF_RENAMEONCOLLISION;
      fAnyOperationsAborted:=False;
      hNameMappings:=nil;
      lpszProgressTitle:=nil;
    end;
    if SHFileOperation(OpStruc)=0 then
    begin
    end;
  except
    raise Exception.Create('错误');
  end;
end;