本文链接:http://oicu.cc.blog.163.com/blog/static/1230394712009112010323362/
这里的“整数”是指Windows系统打开“我的电脑”时看到的每个分区大小为整数的GB,
本文的计算方法只适用于Windows系统自带的分区工具(比如安装系统前分区,或者是在
系统内用diskmgmt.msc磁盘管理工具分区),如果是Acronis Disk Director Suite这些
分区工具则可能有误差,仅供参考。
复制下面框框里的内容到记事本,另存为“硬盘整数分区.vbs”文件,打开即可使用。
' by oicu#lsxk.org Option Explicit Sub Main() On Error Resume Next Dim intGB, intFAT32, intNTFS, SizePerCylinder, intHead, intSector intHead = 63 intSector = 255 SizePerCylinder = 512 * intSector * intHead / 1024 ^ 2 intGB = CInt(InputBox("输入GB整数: ", "硬盘整数分区(" + CStr(intHead) _ + "磁头/" + CStr(intSector) + "扇区)", "10")) If intGB < 1 Then Exit Sub intFAT32 = (intGB - 1) * 4 + 1024 * intGB intNTFS = Int((Int(1024 * intGB / SizePerCylinder) + 1) * SizePerCylinder) + 1 MsgBox ("FAT32: " + CStr(intFAT32) + "MB" + Chr(13) + "NTFS: " _ + CStr(intNTFS) + "MB"), vbInformation, CStr(intGB) + "GB" End Sub Call Main |
计算原理:硬盘整数分区FAT32/NTFS正确方法
评论