home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library4 / ttd105.bas < prev    next >
Encoding:
BASIC Source File  |  1990-11-24  |  893 b   |  41 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 "TTDIR105.PBU"
  9.  
  10. DIM UDir$(255,3), FFDate%(255,6), FFSize&(255)
  11.  
  12. Path$ = COMMAND$
  13. IF Path$ = "" THEN
  14.   Path$ = "*.*"
  15. END IF
  16.  
  17. N% = 0
  18. CALL GetDirectory(Path$, UDir$(), FFDate%(), FFSize&(),N%)
  19.  
  20. FOR J% = 1 TO N%
  21.   PRINT USING "\         \"; UDir$(J%, 1);
  22.   PRINT USING "\    \";      UDir$(J%, 2);
  23.   PRINT UDir$(J%, 3); " ";
  24.   PRINT USING "##\"; FFDate%(J%,1); FFdate%(J%, 2);
  25.   PRINT USING "##  "; FFDate%(J%,3);
  26.   PRINT USING "##:"; FFDate%(J%,4); FFDate%(J%,5);
  27.   PRINT USING "##  "; FFDate%(J%,6);
  28.   PRINT USING "###,###,###"; FFSize&(J%)
  29. NEXT J%
  30.  
  31. PRINT USING "Number of Files: ###,###,###"; N%
  32.  
  33. T& = 0
  34. FOR J% = 1 TO N%
  35.   T& = T& + FFSize&(J%)
  36. NEXT J%
  37.  
  38. PRINT "Total Size.....: ";
  39. PRINT USING "###,###,###"; T&
  40.  
  41.