//文件拷贝
procedure TbsFileUrlPop.copyFile(Sender: TObject);
var f1 : tfilestream;
f2 : tfilestream ;
begin
try
f1:=Tfilestream.Create('\\10.180.5.238\share\1234.rar',fmOpenRead);
try
f2:=Tfilestream.Create('D:\',fmopenwrite or fmcreate);
try
f2.CopyFrom(f1,f1.size);
finally
f2.Free;
end;
finally
f1.Free;
end;
except
on E:Exception do
showmessage(E.ClassName+':'+E.Message);
end;
end;
参考:Delphi 文件的操作:重命名、复制、移动、删除(制作一个信息上传控件)