整数分区计算器

硬盘分区整数大小计算工具以前写过用批处理实现,这次改用了vbs,脚本的主要功能是实现硬盘分区的整数大小的计算,程序中自动计算FAT32和NTFS分区所需的大小值,具体见程序:

On Error Resume next
'计算FAT32
Function calFat32(fsize)
        calFat32=(fsize-1)*4+1024*fsize
End Function
'计算NTFS
Function calNtfs(nsize)
        Dim cylinderSize
        cylinderSize=512*255*63/1024/1024
        cylinderNum=RoundUp(nsize*1024/cylinderSize)
        calNtfs=RoundUp(cylinderNum*cylinderSize)
End Function
'向上取整函数
Function RoundUp(num)
        RoundUp=Fix(num)+1
End Function
Dim size
'输入过程
Sub Input()
        size=InputBox("输入你欲分出的整数值,单位GB:","整数分区计算器",25)
End Sub
Call Input()
Do While(size<>"")
        sReturn=InputBox("计算结果如下,如要再次计算请点击确定,否则取消退出","整数分区计算器","FAT32:"&calFat32(size)&"MB,NTFS:"&calNtfs(size)&"MB")
        If sreturn<>"" Then
                Call Input()
        Else
                Exit do
        End If
loop

运行效果如下: