如何得到当前所有硬盘的分区数量？不包括光驱、可移动存储器！

[yanzeyuan]

如何得到当前所有硬盘的分区数量？不包括光驱、可移动存储器！

[felix]

'先引用Microsoft Scripting Runtime
Dim FSO As New Scripting.FileSystemObject
Dim dr As Scripting.Drive
Dim intDriveType As Integer
dim i as integer
For Each dr In FSO.Drives
Select Case dr.DriveType
Case 0: intDriveType = 5 'Unknown
Case 1: intDriveType = 2 'Removable
Case 2: intDriveType = 3 'Fixed
i=i+1
Case 3: intDriveType = 5 'Network
Case 4: intDriveType = 4 'CD-ROM
Case 5: intDriveType = 5 'RAM Disk
End Select
Next
msgbox i

[3661512]

可以用wmi,
http://www.mvps.org/vbnet/index.html?code/wmi/wmilogicaldiskinfo.htm
看看这里