Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Program Files")
Wscript.Echo "Size: " & objFolder.Size

If NOT @LOGONMODE
	Break On
Else
	Break Off
EndIf
Dim $SO
$SO=SetOption("Explicit", "ON")
$SO=SetOption("NoMacrosInStrings", "ON")
$SO=SetOption("NoVarsInStrings", "ON")
$SO=SetOption("WrapAtEOL", "ON")
Dim $objFSO, $objFolder
$objFSO = CreateObject("Scripting.FileSystemObject")
$objFolder = $objFSO.GetFolder("C:\Program Files")
? "Size: " + $objFolder.Size