VB.NET還是比較常用的，于是我研究了一下VB.NET獲取硬盤信息，看完本文你肯定有不少收獲，希望本文能教會你更多東西。

1、VB.NET獲取硬盤信息之一：用API函數(shù)GetDiskFreeSpaceEx獲取磁盤空間

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 

2、VB.NET獲取硬盤信息之二：用FSO(文件系統(tǒng)對象模型)實現(xiàn)
FSO對象模型包含在SCRIPTING類型庫(SCRRUN.DLL)中。在項目菜單中選擇引用，在COM中選擇Microsoft Scripting Runtime在代碼最頂端添加Imports Scripting，在按鈕的單擊事件中加入以下代碼：

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 += "磁盤卷標(biāo):" & drvDisk.VolumeName & vbCrLf  
strResult += "磁盤序列號:" & drvDisk.SerialNumber & vbCrLf  
strResult += "磁盤類型:" & drvDisk.DriveType & vbCrLf  
strResult += "文件系統(tǒng):" & 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 

3、VB.NET獲取硬盤信息之三：用API函數(shù)GetVolumeInformation獲取邏輯盤序列號

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 

4、VB.NET獲取硬盤信息之四：利用WMI獲取硬盤信息
Windows Management Instrumentation (WMI) 是可伸縮的系統(tǒng)管理結(jié)構(gòu)，它采用一個統(tǒng)一的、基于標(biāo)準(zhǔn)的、可擴展的面向?qū)ο蠼涌凇MI 為您提供與系統(tǒng)管理信息和基礎(chǔ) WMI API 交互的標(biāo)準(zhǔn)方法。WMI 主要由系統(tǒng)管理應(yīng)用程序開發(fā)人員和管理員用來訪問和操作系統(tǒng)管理信息。我們需要使用.net Framwork里面System.Management命名空間下提供的類來實現(xiàn)。

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 += "設(shè)備ID:" & disk("DeviceID") & vbCrLf  
strResult += "磁盤名稱:" & disk("Name") & vbCrLf  
strResult += "磁盤卷標(biāo):" & disk("VolumeName") & vbCrLf  
If disk("FileSystem") <> "" Then strResult += "文件系統(tǒng):" & 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 

總結(jié)：在VB.NET中，用API函數(shù)可以獲取硬盤信息。原來熟悉API函數(shù)VB6程序員，可以對API函數(shù)聲明進行適當(dāng)?shù)母暮?，進行調(diào)用。利用FSO（文件系統(tǒng)對象）的Scrrun.DLL，也可以獲得磁盤信息。在.net Framwork中，利用WMI可以獲取更多的關(guān)于機器硬件的詳細(xì)信息（參考System.Management命名空間）。

【編輯推薦】

1. 概括VB.NET使用OracleTransaction
2. 五分鐘了解VB.NET類構(gòu)造
3. 討論奇妙的VB.NET屬性
4. 詳談VB.NET編碼規(guī)范經(jīng)驗
5. 自己動手實現(xiàn)VB.NET控件數(shù)組