Delphi文件拷贝

//文件拷贝
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 文件的操作：重命名、复制、移动、删除（制作一个信息上传控件）

Delphi中实现文件拷贝的三种方法