请教 ，如何得到物理硬盘大小，是整个硬盘，不是分区

Question

硬盘可能接到raid卡上

Answer 1

引用microsoft wmi scripting v1.2 libraryPrivate Sub cmdDone_Click()
Dim oWMINameSpace As SWbemServices
Dim oLogicalDiskSet As SWbemObjectSet
Dim oLogicalDisk As SWbemObjectDim ObjSet As Variant
Dim sDrive As String
Dim sValue As String
Dim dblSize As Double
Dim Obj As VariantDim lIndex As LongSet oWMINameSpace = GetObject("winmgmts:")'得到驱动器的信息
On Error Resume Next
Set ObjSet = oWMINameSpace.InstancesOf("Win32_DiskDrive")For Each Obj In ObjSet
  List5.AddItem Obj.Caption & " - " & BytesToMegabytes(Obj.Size) & " GB"
Next
end subPrivate Function BytesToMegabytes(Bytes As Double) As Double
  Dim dblAns As Double
  dblAns = (Bytes / 1024) / 1024
  BytesToMegabytes = Format(dblAns, "###,###,##0.00")
End Function

Answer 2

'引用Microsoft Script Runtime
Private Sub Form_Load()
Dim total
total = 0
Set fso = CreateObject("scripting.FileSystemObject")
Set Localdrive = fso.Drives
For Each driveinfo In Localdrive
If driveinfo.DriveType = 2 Thentotal = total + driveinfo.TotalSize / 1048576
End If
NextMsgBox "你的硬盘总容量为:" & total & " MB"
End Sub

Answer 3

to  online(龙卷风V2.0--再战江湖) 
怎么找不到 microsoft wmi scripting v1.2 library
安装了wmi sdk 也没看到这个控件to yinweihong(yige) ( )
你的方法可以，但硬盘容量是由所有逻辑盘相加得到，我想要的不是这个，还是谢谢你。

Answer 4

http://blog.csdn.net/online/archive/2004/03/12/7767.aspx
win2000中自带，你在找找microsoft wmi scripting v1.x library

Answer 5

搞定，多谢 online(龙卷风V2.0--再战江湖) 和其他朋友