function DownLoadProductData(strSourFilePath: string; DeFieldpath: string): Boolean;
var
OpStruc: TSHFileOpStruct;
FromBuf, ToBuf: array[0..128] of Char;
begin
try
FillChar(FromBuf, Sizeof(FromBuf), 0);
FillChar(ToBuf, Sizeof(ToBuf), 0);
StrPCopy(FromBuf, Pchar(strSourFilePath));
//strSourFilePath
StrPCopy(ToBuf, Pchar(DeFieldpath));
with OpStruc do
begin
//Wnd := handle;
wFunc := FO_COPY;
pFrom := @FromBuf;
pTo := @ToBuf;
fFlags := FOF_NOCONFIRMATION or FOF_MULTIDESTFILES or FOF_SILENT; // or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
if SHFileOperation(OpStruc) = 0 then
begin
end;
except
on E:Exception do
WriteLog(FTodayLog, '获取文件列表出错:'+E.Message);
end;
end;
delphi 拷贝文件
猜你喜欢
转载自blog.csdn.net/Listest/article/details/121282664
今日推荐
周排行