; Usage: $DirSize(directory)
;
; Returns the directory's size in bytes.
alias DirSize {
if !$isdir($1) { return }
.comopen oFSO Scripting.FileSystemObject
!.echo -q $com(oFSO, GetFolder, 1, bstr, $1, dispatch* oFolder)
!.echo -q $com(oFolder, Size, 2)
var %size = $com(oFolder).result
.comclose oFolder
.comclose oFSO
return %size
}