/*

$VER: EASYgetsize 1.0 (09.05.96) by David De Groot

This script works with 'getsize' in your c: dir

*/




options failat 21
NL = '0a'x


bool = exists('libs:rexxreqtools.library')
 if bool = 0 then say "You need RexxReqTools.library"
else call addlib('rexxreqtools.library',0,-30)

gcheck = exists('c:getsize')
if gcheck = 0
    then do
     call rtezrequest("GETSIZE is not in your C: ...",, 
                      "Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
    exit 
  end
else 


call rtezrequest("Volumes or dirs?",,
                 "Dir|Volume", "EASYsize", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
if rtresult == 0 
 then call vol
else call dir

/**/

vol:
dev = rtfilerequest('ram:','', "Pick a volume", ,,
                    'rtfi_volumerequest = 0 rt_reqpos=reqpos_centerscr')

 if rtresult == 0 
  then exit

call sizeresult(dev)

/**/
   
dir:
dirken = rtfilerequest('ram:','', "Pick a directory", ,,
                       'rtfi_flags = freqf_nofiles rt_reqpos=reqpos_centerscr')

 if rtresult == 0 
  then exit

call sizeresult(dirken)
   

/**/

sizeresult:

address command 
   'getsize ' || arg(1) || ' >t:size' 

   call open('resultaat','t:size','R')
   line=readln('resultaat') 
 
 call rtezrequest("Result" upper(arg(1)) line , "Thanks!","EASYsize")


exit