alias size {
if !$isdir($1) { return }
var %a = fso $+ $ticks, %b = getfolder $+ %a
.comopen %a Scripting.FileSystemObject
if $comerr { return }
if $com(%a,GetFolder,1,bstr,$1,dispatch* %b) && $com(%b) {
.comclose %a $com(%b,Size,2)
%a = $com(%b).result
.comclose %b
return $int(%a)
}
.comclose %a
}