VB获取硬盘个数

阿杰

Private Sub Form_Load()
Dim i As Integer
    On Local Error Resume Next
    Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_DiskDrive")
    For Each obj In wmiObjSet
        Debug.Print "标题"; obj.Caption
        Debug.Print "描述:"; obj.Description
        Debug.Print "分区个数:"; obj.Partitions
        Debug.Print "容量:"; obj.Size
        i = i + 1
    Next
    Debug.Print "共有硬盘" & i & "块"
End Sub