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

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

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

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

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

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

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

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

总结：在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控件数组

网站名称：VB.NET获取硬盘信息四大法宝
本文路径：http://www.shufengxianlan.com/qtweb/news8/436908.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

网站内链知识

分类信息网

泸州做网站　　 　重庆企业网站建设　　 　名片印刷厂　　 　软文推广　　 　香港云主机　　 　绵阳主机托管　　 　成都网站维护　　 　响应式网站　　 　软文发稿　　 　外贸营销网站建设　　 　域名申请　　 　成都西云机房　　 　抖音代运营　　 　成都棕树电信机房　　 　造型师设计　　 　云虚拟主机　　 　网站改版　　 　达州网站制作　　 　Android开发　　 　乐山做网站