home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library4 / ttd100.bas < prev    next >
BASIC Source File  |  1990-11-24  |  327b  |  22 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. $LINK "TTDIR100.PBU"
  7.  
  8. DIM UDir$(255)
  9.  
  10. Path$ = COMMAND$
  11. IF Path$ = "" THEN
  12.   Path$ = "*.*"
  13. END IF
  14.  
  15. N% = 0
  16. CALL GetDir100(Path$, UDir$(), N%)
  17.  
  18. FOR J% = 0 TO N%
  19.   PRINT UDir$(J%)
  20. NEXT J%
  21.  
  22.