VB.NET中如何获取硬盘信息

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _  (ByVal lpDirectoryName As String, ByRef lpFreeBytesAvailableToCaller As Long, _  ByRef lpTotalNumberOfBytes As Long, ByRef lpTotalNumberOfFreeBytes As Long) As Long   Private Sub btnDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click  Dim BytesFreeToCalller As Long, TotalBytes As Long  Dim TotalFreeBytes As Long, TotalBytesUsed As Long  Dim strResult As String  Const RootPathName = "C:\" Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)  strResult = " Drive " & "C:\" & vbCrLf  strResult += "磁盘容量(MB):" & Format(CDbl((TotalBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf  strResult += "可用空间(MB):" & Format(CDbl((TotalFreeBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf  strResult += "已用空间(MB):" & Format(CDbl(((TotalBytes - TotalFreeBytes) / 1024) / 1024), "###,###,##0.00") & vbCrLf  MsgBox(strResult)  End Sub

Imports Scripting  Private Sub btnFso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFso.Click  Dim Fso As New FileSystemObject  Dim drvDisk As Drive, strResult As String  drvDisk = Fso.GetDrive("C:\")  strResult = "Drive " & "C:\" & vbCrLf  strResult += "磁盘卷标:" & drvDisk.VolumeName & vbCrLf  strResult += "磁盘序列号:" & drvDisk.SerialNumber & vbCrLf  strResult += "磁盘类型:" & drvDisk.DriveType & vbCrLf  strResult += "文件系统:" & drvDisk.FileSystem & vbCrLf  strResult += "磁盘容量(G): " & FormatNumber(((drvDisk.TotalSize / 1024) / 1024) / 1024, 2,Microsoft.VisualBasic.TriState.True) & vbCrLf  strResult += "可用空间(G): " & FormatNumber(((drvDisk.FreeSpace / 1024) / 1024) / 1024, 2,Microsoft.VisualBasic.TriState.True) & vbCrLf  strResult += "已用空间(G):" & FormatNumber(((((drvDisk.TotalSize - drvDisk.FreeSpace) / 1024) / 1024) / 1024), 2, , , Microsoft.VisualBasic.TriState.True)  MsgBox(strResult)  End Sub 

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal _nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Long, _ByVal lpMaximumComponentLength As Integer, ByVal lpFileSystemFlags As Integer, ByVal _lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  Dim SerialNumber As Long  Dim TempStr1 As New String(Chr(0), 255)  Dim TempStr2 As New String(Chr(0), 255)  Dim TempInt1, TempInt2 As Integer  GetVolumeInformation("C:\", TempStr1, 256, SerialNumber, TempInt1, TempInt2, TempStr2, 256)  MsgBox("C盘序列号:" & SerialNumber)  End Sub 

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  strResult += "磁盘描述:" & disk("Description") & vbCrLf  If System.Convert.ToInt64(disk("Size")) > 0 Then  strResult += "磁盘大小:" & System.Convert.ToInt64(disk("Size").ToString()) & vbCrLf  strResult += "磁盘类型:" & System.Convert.ToInt16(disk("DriveType").ToString())  End If  MsgBox(strResult)  Next  End Sub