在DELPHI中怎样COPY一个文件夹?

Question

我想 生成一个bat文件，输入dos命令，执行该文件。应该可以。

Answer 1

写个批处理程序(.bat)，然后运行它就可以了。

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

自己写啊
主要得用三个API函数
COPYFILE
FINDFIRST
FINDNEXT等循环一个一个拷贝
我早做了通用函数，不过一下找不到