pro disk_free,Length

Length=50000000L
return

	if !version.OS ne 'windows' then begin
Length = 50000000L
	return
	endif

widget_control,/hourglass

Fname='diskfree.dat'

spawn,'dir > '+Fname

Loop:

	REPEAT BEGIN
Flag=(findfile(Fname))(0) ne ''
wait,0.6
	ENDREP UNTIL Flag

if Flag then add_eof,Fname else goto,Loop

tmp=''
x=strarr(1000)
j=0

	openr,lun,Fname,/get_lun,/del
		while not EOF(lun) do begin readf,lun,tmp
x(j)=tmp
j=j+1
		endwhile
	free_lun,lun

x=x((j-4) > 0 : j)


N=n_elements(x)

pattern='bytes free'	; length=10

Found=0

	for j=0,N-1 do begin

current=x(j)

len=strlen(current)

index=where(byte(current) eq (byte('b'))(0))
	for k=0,n_elements(index)-1 do 	$
		if strmid(current,index(0),10) eq pattern then goto, Label

	endfor

Label:

x=strmid(current,0,index((k-1)>0))

first=(byte(strsplit(x)))(0,*)

i0=where(first lt 48 or first gt 57)

x=(strsplit(x))(i0(0)+1 > 0:*)

xx=''

for j=0,n_elements(x)-1 do xx=xx+x(j)

x=xx

y=strsplit(x)

N=n_elements(y)


	if strpos(x,'.') ge 0 then begin
y=strsplit(y(0),delim='.')
N=n_elements(y)+2
	endif else if strpos(x,',') ge 0 then begin
y=strsplit(y(0),delim=',')
N=n_elements(y)+2
	endif


j=0
Length=''

;	while j lt N-2 do begin
;Length=Length+strcompress(y(j),/rem)
;j=j+1
;	endwhile


	REPEAT begin
Length=Length+strcompress(y(j),/rem)
j=j+1
	endrep UNTIL j ge N-2

Length=long(Length)

	end