VB.NET获取硬盘信息四大法宝

开发 后端
这里介绍VB.NET获取硬盘信息,有四种好方法用API函数GetDiskFreeSpaceEx获取磁盘空间、用FSO(文件系统对象模型)实现等。

VB.NET还是比较常用的,于是我研究了一下VB.NET获取硬盘信息,看完本文你肯定有不少收获,希望本文能教会你更多东西。

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

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

2、VB.NET获取硬盘信息之二:用FSO(文件系统对象模型)实现
FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。在项目菜单中选择引用,在COM中选择Microsoft Scripting Runtime在代码最顶端添加Imports Scripting,在按钮的单击事件中加入以下代码:

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

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

  1. 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  
  2.  
  3. Private Sub Button2_Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles Button2.Click  
  4. Dim SerialNumber As Long  
  5. Dim TempStr1 As New String(Chr(0), 255)  
  6. Dim TempStr2 As New String(Chr(0), 255)  
  7. Dim TempInt1, TempInt2 As Integer  
  8. GetVolumeInformation("C:\", TempStr1, 256, SerialNumber, TempInt1, TempInt2, TempStr2, 256)  
  9. MsgBox("C盘序列号:" & SerialNumber)  
  10. End Sub 

4、VB.NET获取硬盘信息之四:利用WMI获取硬盘信息
Windows Management Instrumentation (WMI) 是可伸缩的系统管理结构,它采用一个统一的、基于标准的、可扩展的面向对象接口。WMI 为您提供与系统管理信息和基础 WMI API 交互的标准方法。WMI 主要由系统管理应用程序开发人员和管理员用来访问和操作系统管理信息。我们需要使用.net Framwork里面System.Management命名空间下提供的类来实现。

  1. Private Sub Button3_Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles Button3.Click  
  2. Dim disk As ManagementBaseObject  
  3. Dim strResult As String  
  4. Dim diskClass = New ManagementClass("Win32_LogicalDisk")  
  5. Dim disks As ManagementObjectCollection  
  6. disks = diskClass.GetInstances()  
  7. For Each disk In disks  
  8. strResult = "" 
  9. strResult += "设备ID:" & disk("DeviceID") & vbCrLf  
  10. strResult += "磁盘名称:" & disk("Name") & vbCrLf  
  11. strResult += "磁盘卷标:" & disk("VolumeName") & vbCrLf  
  12. If disk("FileSystem") <> "" Then strResult += "文件系统:" & disk("FileSystem") & vbCrLf  
  13. strResult += "磁盘描述:" & disk("Description") & vbCrLf  
  14. If System.Convert.ToInt64(disk("Size")) > 0 Then  
  15. strResult += "磁盘大小:" & System.Convert.ToInt64(disk("Size").ToString()) & vbCrLf  
  16. strResult += "磁盘类型:" & System.Convert.ToInt16(disk("DriveType").ToString())  
  17. End If  
  18. MsgBox(strResult)  
  19. Next  
  20. End Sub 

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

【编辑推荐】

  1. 概括VB.NET使用OracleTransaction
  2. 五分钟了解VB.NET类构造
  3. 讨论奇妙的VB.NET属性
  4. 详谈VB.NET编码规范经验
  5. 自己动手实现VB.NET控件数组
责任编辑:佚名 来源: 51CTO.com
相关推荐

2010-01-11 18:21:22

VB.NET获取硬盘信

2009-10-22 15:35:24

VB.NET循环

2010-01-13 13:26:41

Linux服务器维护

2010-08-31 14:17:15

无线网络设计

2010-09-08 14:31:40

无线网络设计

2010-04-30 15:01:40

2015-04-02 16:57:45

数据中心运维管理

2023-10-13 07:36:58

Java函数式编程

2009-10-26 13:36:58

VB.NET Spli

2009-10-14 08:34:09

Windows 7无光驱安装

2010-01-08 14:50:47

VB.NET测试硬盘速

2010-01-11 17:49:36

VB.NET硬盘序列号

2018-05-05 09:00:40

生产效率

2010-01-22 15:56:03

VB.NET获取当前U

2010-01-14 18:22:05

VB.NET硬盘速度测

2010-01-18 14:47:42

VB.NET获取环境变

2019-08-30 10:54:48

数据中心开发DevOps

2009-11-02 15:49:23

VB.NET显示系统信

2011-06-17 11:05:22

VB.NET

2009-06-24 15:45:32

VB.NET
点赞
收藏

51CTO技术栈公众号