home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / ADD / FILECOPY.ADD < prev    next >
Text File  |  2001-03-14  |  523b  |  22 lines
  1. { K p²íkazu uses p²ipsat jednotku IOErrFB;}
  2.  
  3. Main CopyFile(FileTo,CopyTo:string);
  4. variable
  5.   file~ FromF, ToF;
  6.   word~ NumRead, NumWritten;
  7.   Declare : buf[1-2048/Char];
  8.  
  9. DefFrom ErrOpen,ErrRead;
  10. :>proc>
  11.   OpenF@ErrOpen(FromF/1, FileTo);
  12.   CreateF@ErrOpen(ToF/1, CopyTo);
  13.   :loop>
  14.     BlockRead@ErrRead(FromF,buf,SizeOf(buf),NumRead);
  15.     BlockWrite@ErrRead(ToF,buf,NumRead,NumWritten);
  16.   :loop< (NumRead = 0) or (NumWritten <> NumRead);
  17.   @ErrRead<
  18.   Close(FromF);
  19.   Close(ToF);
  20.   @ErrOpen<
  21. :<proc<
  22.