硬盤分區(qū)整數(shù)大小計(jì)算工具以前寫過用批處理實(shí)現(xiàn),這次改用了vbs,腳本的主要功能是實(shí)現(xiàn)硬盤分區(qū)的整數(shù)大小的計(jì)算,程序中自動計(jì)算FAT32和NTFS分區(qū)所需的大小值,具體見程序:

On Error Resume next
'計(jì)算FAT32
Function calFat32(fsize)
????????calFat32=(fsize-1)*4+1024*fsize
End Function
'計(jì)算NTFS
Function calNtfs(nsize)
????????Dim cylinderSize
????????cylinderSize=512*255*63/1024/1024
????????cylinderNum=RoundUp(nsize*1024/cylinderSize)
????????calNtfs=RoundUp(cylinderNum*cylinderSize)
End Function
'向上取整函數(shù)
Function RoundUp(num)
????????RoundUp=Fix(num)+1
End Function
Dim size
'輸入過程
Sub Input()
????????size=InputBox("輸入你欲分出的整數(shù)值,單位GB:","整數(shù)分區(qū)計(jì)算器",25)
End Sub
Call Input()
Do While(size<>"")
????????sReturn=InputBox("計(jì)算結(jié)果如下,如要再次計(jì)算請點(diǎn)擊確定,否則取消退出","整數(shù)分區(qū)計(jì)算器","FAT32:"&calFat32(size)&"MB,NTFS:"&calNtfs(size)&"MB")
????????If sreturn<>"" Then
????????????????Call Input()
????????Else
????????????????Exit do
????????End If
loop

運(yùn)行效果如下:

轉(zhuǎn)載于:https://www.cnblogs.com/crid/archive/2010/11/28/5172716.html

總結(jié)

以上是生活随笔為你收集整理的整数分区计算器的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。