home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
REXXIT.ZIP
/
SIZEUSED.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1992-12-06
|
268b
|
15 lines
/* sizeused.cmd - looping and the rxqueue filter */
parse arg filespec
total = 0
'@dir' filespec '/n | rxqueue'
do 5
pull
end
do queued() - 2
pull . . size easize .
total = total + size + easize
end
pull
pull
say filespec 'occupies' total 'bytes'