这篇博客介绍了在VB.NET环境下，通过API函数、FSO（文件系统对象）、GetVolumeInformation函数和WMI（Windows Management Instrumentation）四种方式获取硬盘信息，包括磁盘容量、可用空间、序列号等详细数据。示例代码展示了具体实现过程。
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.47元/天 解锁文章
1647
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
