home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST85.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  503 b   |  29 lines
  1. ********************
  2.  
  3. FUNCTION Filetime
  4.  
  5.    PARAMETERS _a
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       RETURN("")
  9.    ENDIF
  10.  
  11.    * _a is the name of the file
  12.    
  13.    _a = UPPER(LTRIM(TRIM(_a)))
  14.    IF !FILE(_a)
  15.       RETURN("")
  16.    ENDIF
  17.  
  18.    * _b is the array for file names
  19.    * _c is the array for file sizes
  20.    * _d is the array for file dates
  21.    * _e is the array for file times
  22.  
  23.    PRIVATE _b[1], _c[1], _d[1], _e[1]
  24.    ADIR(_a, _b, _c, _d, _e)
  25.    RELEASE _a, _b, _c, _d
  26.    RETURN(_e[1])
  27.  
  28.  
  29.