break on

$start = @TICKS

?"size=" getdirsize("c:\windows\system32")

?"elapsed=" @TICKS - $start "ms"

exit 1

function getdirsize($path)
 dim $filename
 $filename = dir("$path\*.*")
 while @error = 0
  if $filename <> "." and $filename <> ".."
   if getfileattr("$path\$filename") & 16
    $getdirsize = $getdirsize + getdirsize("$path\$filename")
   else
    $getdirsize = $getdirsize + getfilesize("$path\$filename")
   endif
  endif
  $filename=dir("")
 loop
endfunction