'/*=========================================================================
' * Intro 硬盘整数分区FAT32/NTFS正确方法
' * FileName Disk-Int-NTFS-FAT32
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/Disk-Int-NTFS-FAT32.vbs.html
' * From http://www.slyar.com/blog/disk-int-ntfs-fat32.html
' * MadeTime 2009-09-12 15:48:18
' * LastModify 2009-09-12 15:48:18
' *==========================================================================*/
FixIt = 512 * 255 * 63 / 1024 / 1024
F = InputBox("请输入分区格式 "&vbCrLf&"1为NTFS，2为FAT32, 3为神秘功能", "1/2", 3)
If F = 3 Then
For i = 5 To 300 Step 5
Str = Str & i & "G = " & CStr(Int((Int(i * 1024 / FixIt) + 1) * FixIt) + 1) & "M "
If i Mod 10 = 0 Then Str = Str & vbCrLf
Next
MsgBox Str, , "NTFS整数分区"
wscript.quit
End If
S = InputBox("请输入分区大小，单位为G", "2/2", 10)
If F = 1 Then
MsgBox "NTFS "& S & "G = "&CStr(Int((Int(S * 1024 / FixIt) + 1) * FixIt) + 1) & "M"
ElseIf F = 2 Then
MsgBox "FAT32 "& S & "G = "&CStr((S -1) * 4 + 1024 * S) & "M"
End If
