批量文件复制

Question

同事的文件都存储在公司服务器的D盘上，公司要求每天将服务器的D盘备份到移动硬盘(250GB)上，
移动硬盘插在服务器上，公司要求在移动硬盘上保留1周的数据，星期一将服务器的D盘所有文件备份到
移动硬盘上的星期一文件里，星期二...，下周星期一将覆盖本周星期一的数据。我想作一个小程序来完成这每天重复的工作，不知该如何写，希望兄弟们帮忙！

Answer 1

复制目录：
///复制Source整个目录到DEST目录，如果Dest不存在，自动建立，如果DEST存在，那么Source将作为Dest的子目录！
//例如如果要复制E:\Temp整个目录到E:\那么代码为： copydirectory('e:\temp','e:\');
///如果要复制E:\Temp到E:\Test目录下面，那么代码为：CopyDirecotry('E:\Temp','E:\TEST');uses
  ShellAPI;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;