使用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
答案 0 :(得分:1)
是否有标志或开关使其仅复制文件夹中的较新文件?
没有。
我必须检查每个文件夹中的每个文件吗?
是。