home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
pb
/
library4
/
ttd105.bas
< prev
next >
Wrap
BASIC Source File
|
1990-11-24
|
893b
|
41 lines
'
' Demo using PowerBasic 2.10 Directory command along with using the DTA
' area to get extended file information.
'
OPTION BASE 1
$LINK "TTDIR105.PBU"
DIM UDir$(255,3), FFDate%(255,6), FFSize&(255)
Path$ = COMMAND$
IF Path$ = "" THEN
Path$ = "*.*"
END IF
N% = 0
CALL GetDirectory(Path$, UDir$(), FFDate%(), FFSize&(),N%)
FOR J% = 1 TO N%
PRINT USING "\ \"; UDir$(J%, 1);
PRINT USING "\ \"; UDir$(J%, 2);
PRINT UDir$(J%, 3); " ";
PRINT USING "##\"; FFDate%(J%,1); FFdate%(J%, 2);
PRINT USING "## "; FFDate%(J%,3);
PRINT USING "##:"; FFDate%(J%,4); FFDate%(J%,5);
PRINT USING "## "; FFDate%(J%,6);
PRINT USING "###,###,###"; FFSize&(J%)
NEXT J%
PRINT USING "Number of Files: ###,###,###"; N%
T& = 0
FOR J% = 1 TO N%
T& = T& + FFSize&(J%)
NEXT J%
PRINT "Total Size.....: ";
PRINT USING "###,###,###"; T&