home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST291.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  464 b   |  28 lines
  1. *******************
  2.  
  3. FUNCTION Delfile
  4.  
  5.    PARAMETERS _afile
  6.  
  7.    IF PCOUNT() != 1
  8.       RETURN(.F.)
  9.    ELSEIF TYPE("_afile") != "C"
  10.       RETURN(.F.)
  11.    ELSE
  12.       _afile = LTRIM(TRIM(_afile))
  13.       IF !FILE(_afile)
  14.          RETURN(.F.)
  15.       ENDIF
  16.    ENDIF
  17.  
  18.    _howmany = ADIR(_afile)
  19.    DECLARE _tarray[_howmany]
  20.    ADIR(_afile, _tarray)
  21.  
  22.    FOR _qaz = 1 TO LEN(_tarray)
  23.       CALL __tunlink WITH _tarray[_qaz]
  24.    NEXT
  25.  
  26. * End of File
  27.  
  28.