home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library4 / ttd101.bas < prev    next >
BASIC Source File  |  1990-11-24  |  340b  |  24 lines
  1. '
  2. '  Demo using PowerBasic 2.10 Directory command along with using the DTA
  3. '  area to get extended file information.
  4. '
  5.  
  6. OPTION BASE 1
  7.  
  8. $LINK "TTDIR101.PBU"
  9.  
  10. DIM UDir$(255)
  11.  
  12. Path$ = COMMAND$
  13. IF Path$ = "" THEN
  14.   Path$ = "*.*"
  15. END IF
  16.  
  17. N% = 0
  18. CALL GetDir(Path$, UDir$(), N%)
  19.  
  20. FOR J% = 1 TO N%
  21.   PRINT UDir$(J%)
  22. NEXT J%
  23.  
  24.