VB.NET获取硬盘信息的几种方法

我们需要使用.net Framwork里面System.Management命名空间下提供的类来实现。

Imports System.Management

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim disk As ManagementBaseObject

Dim strResult As String

Dim diskClass = New ManagementClass("Win32_LogicalDisk")

Dim disks As ManagementObjectCollection

disks = diskClass.GetInstances()

For Each disk In disks

strResult = ""

strResult += "设备ID:" & disk("DeviceID") & vbCrLf

strResult += "磁盘名称:" & disk("Name") & vbCrLf

strResult += "磁盘卷标:" & disk("VolumeName") & vbCrLf

If disk("FileSystem") <> "" Then strResult += "文件系统:" & disk("FileSystem") & vbCrLf