硬盘整数分区FAT32/NTFS正确方法代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】硬盘整数分区FAT32/NTFS正确方法

作者:Dezai.CN / 发布于2011/8/22/ 1206

<div>'/*=========================================================================
' * Intro 硬盘整数分区FAT32/NTFS正确方法
' * FileName Disk-Int-NTFS-FAT32
' * Author yongfa365
' * Version v1.0
' * WEB <a href="http://www.yongfa365.com">http://www.yongfa365.com</a>
' * Email yongfa365[at]qq.com
' * FirstWrite <a href="http://www.yongfa365.com/Item/Disk-Int-NTFS-FAT32.vbs.html">http://www.yongfa365.com/Item/Disk-Int-NTFS-FAT32.vbs.html</a>
' * From <a href="http://www.slyar.com/blog/disk-int-ntfs-fat32.html">http://www.slyar.com/blog/disk-int-ntfs-fat32.html</a>
' * MadeTime 2009-09-12 15:48:18
' * LastModify 2009-09-12 15:48:18
' *==========================================================================*/</div>
<div>
FixIt = 512 * 255 * 63 / 1024 / 1024</div>
<div>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</div>
<div>S = InputBox("请输入分区大小，单位为G", "2/2", 10)</div>
<div>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
</div>

试试其它关键字

　硬盘整数分区　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)