VB.NET获取硬盘信息操作方式总结概览-51CTO.COM

VB.NET中对于硬件操作的方式是比较简单的。比如在对VB.NET获取硬盘信息的操作中，就可以通过集中方式来进行。随开发人员的需求而选择。下面就让我们一起来体验这一灵活方便的编程方式。#t#

VB.NET获取硬盘信息1、用API函数GetDiskFreeSpaceEx获取磁盘空间

Private Declare Function GetDiskFree
SpaceEx 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

VB.NET获取硬盘信息2、用FSO(文件系统对象模型)实现

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 += "磁盘卷标:" & 
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 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.

VB.NET获取硬盘信息3、用API函数GetVolumeInformation获取逻辑盘序列号

Private Declare Function GetVolume
Information 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 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.

#p#

VB.NET获取硬盘信息4、利用WMI获取硬盘信息

Windows Management Instrumentation (WMI) 是可伸缩的系统管理结构，它采用一个统一的、基于标准的、可扩展的面向对象接口。WMI 为您提供与系统管理信息和基础 WMI API 交互的标准方法。WMI 主要由系统管理应用程序开发人员和管理员用来访问和操作系统管理信息。

我们需要使用.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  
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 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.

总结：在VB.NET中，用API函数可以获取硬盘信息。原来熟悉API函数VB6程序员，可以对API函数声明进行适当的更改后，进行调用。利用FSO（文件系统对象）的Scrrun.DLL，也可以实现VB.NET获取硬盘信息。在.net Framwork中，利用WMI可以获取更多的关于机器硬件的详细信息（参考System.Management命名空间）。