home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST294.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  482 b   |  27 lines
  1. *******************
  2.  
  3. FUNCTION Renfile
  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 = TRIM(LTRIM(_afile))
  13.       _bfile = TRIM(LTRIM(_bfile))
  14.       IF    !FILE(_afile)
  15.          RETURN(.F.)
  16.       ELSEIF FILE(_bfile)
  17.          RETURN(.F.)
  18.       ENDIF
  19.    ENDIF
  20.  
  21.    CALL __trename WITH _afile, _bfile
  22.  
  23.    RETURN( (DOSERROR() = 0) )
  24.  
  25. * End of File   
  26.  
  27.