论坛广场 › 源码分享 › VB获取硬盘个数

阿杰 发表于 2012-11-4 14:18:28

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

查看完整版本: VB获取硬盘个数