home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Programming / YAEC / testsrc / DirQuick.e < prev    next >
Encoding:
Text File  |  2001-02-23  |  610 b   |  26 lines
  1. /* nice directory command in E ! */
  2.  
  3. MODULE 'dos/dos'
  4.  
  5. PROC main()
  6.   DEF info:fileinfoblock,lock,c=0
  7.   IF lock:=Lock(arg,-2)
  8.     IF Examine(lock,info)
  9.       IF info.direntrytype>0
  10.         WriteF('Directory of: \s\n',info.filename)
  11.         WHILE ExNext(lock,info)
  12.           WriteF(IF info.direntrytype>0 THEN '\l\s[25]' ELSE '\l\s[17] \r\d[7]',
  13.             info.filename,info.size)
  14.           WriteF(IF c++=2 THEN c:=0 BUT '\n' ELSE ' ')
  15.         ENDWHILE
  16.         IF c THEN WriteF('\n')
  17.       ELSE
  18.         WriteF('No Dir!\n')
  19.       ENDIF
  20.     ENDIF
  21.     UnLock(lock)
  22.   ELSE
  23.     WriteF('What ?!?\n')
  24.   ENDIF
  25. ENDPROC
  26.