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

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

1、用API函数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、用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