【问题标题】:Copying Folders with SHFileOpStruct - Only Newer?使用 SHFileOpStruct 复制文件夹 - 只有较新?
【发布时间】:2014-11-27 18:48:12
【问题描述】:

使用 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

【问题讨论】:

    标签: delphi copy directory


    【解决方案1】:

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

    没有。

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

    是的。

    【讨论】:

      猜你喜欢
      • 2013-04-16
      • 2021-04-27
      • 1970-01-01
      • 1970-01-01
      • 2022-11-19
      • 2011-09-26
      • 1970-01-01
      • 2012-10-22
      • 2013-10-29
      相关资源
      最近更新 更多