程序中按下按钮将一个文件夹（包括里面的文件）复制到另一目录中怎么做呢？

Question

？

Answer 1

用 FindFirst/FindNext 查找所有的文件夹和文件。使用 CopyFile 函数复制文件。可以考虑使用递归的方法对付子文件夹。

Answer 2

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 3

TO:wanwangzhiwang(万王之王) 
如果另一个目录中有相同的文件存在如何覆盖。