文件备份

Question

我要复制的文件有100多个，我利用内存块读写buffer实现，主管不让用这种方法。哪位有什么比较到的方法吗？ 
 文件在'D:\OPERView\目录下，备份到E:\123\文件夹下面

Answer 1

copyfile  用了
没有copyfile  成功
呵呵

Answer 2

我工作中用的代码;
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var fp:_SHFILEOPSTRUCT;
begin
  fp.Wnd := Application.Handle;
  fp.wFunc := FO_COPY;
  fp.pFrom := 'd:\OPERView\*.*'+#0+#0;
  fp.pTo := 'E:\123';
  fp.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR  or FOF_SILENT;
  SHFileOperation(fp);
end;

Answer 3

我恢复的时候是用的这种方法；
因为
'd:\OPERView文件夹下面还有文件夹那，
备份的时候用这种方法
这样就把其他的文件夹给复制过来了，