powerbat

function HumanSize(size)
    Dim Units, Gates, SizeStr
    Units = Array("Byte", "KB", "MB", "GB", "TB")
    Gates = Array(1, 1024, 1024^2, 1024^3, 1024^4)

    SizeStr = "0Byte"
    for i=UBound(Units) to 0 Step -1
        if size>=Gates(i) then
            SizeStr = FormatNumber(Size/Gates(i), 2) & Units(i)
            exit for
        end if
    next
HumanSize = SizeStr
end function

'example
set fso = CreateObject("Scripting.FileSystemObject")
Size = fso.GetFolder(".").Size
WScript.Echo Size & " = " & HumanSize(Size)
复制代码

powerbat

VBS的函数真不省心，默认会省略纯小数（整数部分为0的小数）小数点前面的0，这虽然是合法的小数表示法，但不符合人的习惯。Round函数没有选项改变这种行为，FormatNumber函数可以指定。但FormatNumber不爽的是对纯整数也要添加指定个数的小数位，没有选项可以设置不要添加。

FormatNumber(Size/Gates(i), 2, -1, , 0)