home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST290.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  833 b   |  42 lines
  1. *******************
  2.  
  3. FUNCTION Copyfile
  4.  
  5.    PARAMETERS _afile, _bfile
  6.  
  7.    IF PCOUNT() != 2
  8.       RETURN(.F.)
  9.    ELSEIF TYPE("_afile")+TYPE("_bfile") != "CC"
  10.       RETURN(.F.)
  11.    ELSE
  12.       _afile = LTRIM(TRIM(_afile))
  13.       _bfile = LTRIM(TRIM(_bfile))
  14.       IF !FILE(_afile)
  15.          RETURN(.F.)
  16.       ENDIF
  17.    ENDIF
  18.  
  19.    PRIVATE _ahandle, _bhandle, _read, _chars
  20.  
  21.    _ahandle = FOPEN(_afile)
  22.    _bhandle = FCREATE(_bfile)
  23.  
  24.    DO WHILE (FERROR() = 0)
  25.       _read = SPACE(4000)
  26.       _chars = FREAD(_ahandle, @_read, 4000)
  27.       FWRITE(_bhandle, _read, _chars)
  28.       IF _chars != 4000                       && End of File
  29.          EXIT
  30.       ENDIF
  31.    ENDDO
  32.  
  33.    FCLOSE(_ahandle)
  34.    FCLOSE(_bhandle)
  35.  
  36.    RELEASE _read, _chars, _ahandle, _bhandle
  37.  
  38.    RETURN( (FERROR() != 0) )
  39.  
  40. * End of File   
  41.  
  42.