使用SHFileOpStruct复制文件夹 - 仅更新?

时间:2014-11-27 18:48:13

标签: delphi copy directory

使用SHFileOpStruct和我在Internet上找到的以下代码,是否有标记或开关使其仅复制文件夹中的较新文件?或者,我必须检查每个文件夹中的每个文件吗?

procedure TForm1.Button2Click(Sender: TObject);
var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;
Begin
  {The fillchars make sure the parameters are terminated by at least
   two #0 characters, this is required since each parameter can hold
   a list of zero-terminated strings, the extra #0 terminates the
   list. }
  fillChar( OpStruc, Sizeof(OpStruc), 0 );
  FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( frombuf, 'd:\brief\*.*' );
  StrPCopy( tobuf, 'd:\temp\brief' );
  With OpStruc DO Begin
    Wnd:= Handle;
    wFunc:= FO_COPY;
    pFrom:= @frombuf;
    pTo:=@tobuf;
    fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
  end;
  ShFileOperation( OpStruc );
end;
Peter Below (TeamB)  100113.1...@compuserve.com)

我在这里查了但看不到任何东西。

http://msdn.microsoft.com/en-us/library/windows/desktop/bb759795%28v=vs.85%29.aspx

1 个答案:

答案 0 :(得分:1)

  

是否有标志或开关使其仅复制文件夹中的较新文件?

没有。

  

我必须检查每个文件夹中的每个文件吗?

是。