我想备份文件夹，不知该怎么做！

Question

我想将一个文件夹中的所有文件备份到另一个文件夹中去，我该怎么办？请大家帮忙！！

Answer 1

用findfirst和findnext查找所有原文件夹的所有文件，然后用copyfile拷贝
到新文件夹中.

Answer 2

一个简单的方法：
先Uses Shellapi；
然后：
var
  shfos: SHFILEOPSTRUCT;
begin
  with shfos do begin
    shfos.Wnd := 0;
    shfos.wFunc := FO_COPY;
    pFrom := 'd:\source\*.*';
    pTo := 'd:\dest\';
    fFlags := FOF_SILENT;
    fAnyOperationsAborted := True;
    hNameMappings := nil;
  end;
  SHFileOperation(shfos);
end;