求算文件字节工具

要求：
1.能算带小数点 例如：文件大小：16.8MB 等于17,708,937 字节
2.编译好的bat vbs EXE 都行！只要能算出带小数点的文件字节就OK !
备注：看清楚题目哦！一定要能算带小数点的文件字节！整数直接乘1024 .我会算！谢谢！ 邮箱： 952768490@qq.com
可行追加50分！谢谢啦！急用！

vbs脚本：
function GetUnit( byref size )
dim i
i = 0
while size>1024
i=i+1
size = size / 1024
wend
dim s(4)
s(0) = "B"
s(1)= "KB"
s(2) = "MB"
s(3) = "GB"
s(4) = "TB"

GetUnit = round(size,3) & s(i)
end function

dim fso
set fso = WScript.CreateObject("Scripting.FileSystemObject")
dim fname
fname = inputbox("请输入文件名", "输入", "a.vbs")
dim f
set f = fso.GetFile(fname)
dim unit, size
size = f.size
unit = GetUnit(f.size)

msgbox "文件大小：" & unit & " 等于" & size & "字节"

你的意思是由16.8mb计算出精确的大小17,708,937 吗？我认为不行，因为16.8mb是经过四舍五入丢弃了一些小数点，也就是说，16.8mb本身就不是精确的，又如何算出精确的文件大小呢？ 17,708,937b = 16.88855838775634765625.....mb