home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / ADIR.PRG next >
Text File  |  1994-01-21  |  209b  |  13 lines
  1. #include "FiveWin.ch"
  2.  
  3. function Main()
  4.  
  5.    local aFiles := Array( ADir( "*.*" ) )
  6.    local aDir   := ADir( "*.*", aFiles )
  7.  
  8.    ? Len( aFiles )
  9.    ? aFiles[ 1 ]
  10.    ? aFiles[ Len( aFiles ) ]
  11.  
  12. return
  13.