home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 2
/
BUGCD1997_01.iso
/
utils
/
winbatch
/
freedisk.wb_
< prev
next >
Wrap
Text File
|
1994-08-29
|
846b
|
32 lines
;FREESPACE
; Computes total free space on the system
Drives=DiskScan(6) ; 6=4+2 Network and Local Drives
Dmax=strlen(Drives)
BoxOpen("Network Free Space","Looking for space on hard drives")
Delay(2)
DIndex=1
TotalSize=0
DriveReport=""
:COUNTSPACE
NextDrive=StrSub(Drives,Dindex,1)
a=DiskFree(NextDrive)/1024
TotalSize=a+TotalSize
BoxText("Checking %NextDrive%:")
DriveReport=strcat(DriveReport,NextDrive," = ",@TAB,a,"K",@TAB,strfill("|",(a+500)/1000),"@")
DIndex=Dindex+3 ;each entry is 3 bytes long
if DIndex<=Dmax then goto COUNTSPACE
ItemSelect("Total Space Available = %TotalSize%K",DriveReport,"@")
Drop(TotalSize,DriveReport,Drives,NextDrive)
Exit