请问如何备份一个文件夹中的所有文件到另一个文件夹中去？

Question

如题！请大家帮忙！！

Answer 1

复制目录：
function CopyDirectory(const Source, Dest: string): boolean;
var
  fo: TSHFILEOPSTRUCT;
begin
  FillChar(fo, SizeOf(fo), 0);
  with fo do
  begin
    Wnd := 0;
    wFunc := FO_COPY;
    pFrom := PChar(source+#0);
    pTo := PChar(Dest+#0);
    fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR    ;
  end;
  Result := (SHFileOperation(fo) = 0);
end;

Answer 2

uses shellapi;
procedure TForm1.Button1Click(Sender: TObject);
var 
op:tshfileopstruct;
frombuf,tobuf:array[0..128] of char;begin
fillchar(frombuf,sizeof(frombuf),0);
fillchar(tobuf,sizeof(tobuf),0);
strpcopy(frombuf,pchar('源目录'));
strpcopy(tobuf,pchar('目的目录'));with op do
begin
wnd:=handle;
wfunc:=fo_copy;
pfrom:=@frombuf;
pto:=@tobuf
fflags:=fof_noconfirmation;
lpszprogresstitle:='正在copy！';
end;