VB.NET中怎么获取硬盘信息

发布时间:2021-07-14 17:01:00 作者:Leah
来源:亿速云 阅读:524

VB.NET中怎么获取硬盘信息,相信很多没有经验的人对此束手无策,为此本文总结了问题出现的原因和解决方法,通过这篇文章希望你能解决这个问题。

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

  1. Private Declare Function GetDiskFree
    SpaceEx 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. Private Sub btnDisk_Click(ByVal sender 
    As System.Object, ByVal e As System.
    EventArgs) Handles btnDisk.Click  

  5. Dim BytesFreeToCalller As Long, 
    TotalBytes As Long  

  6. Dim TotalFreeBytes As Long, 
    TotalBytesUsed As Long  

  7. Dim strResult As String  

  8. Const RootPathName = "C:\" 

  9. Call GetDiskFreeSpaceEx(RootPathName, 
    BytesFreeToCalller, TotalBytes, 
    TotalFreeBytes)  

  10. strResult = " Drive " & "C:\" & vbCrLf  

  11. strResult += "磁盘容量(MB):" & Format
    (CDbl((TotalBytes / 1024) / 1024), 
    "###,###,##0.00") & vbCrLf  

  12. strResult += "可用空间(MB):" & Format
    (CDbl((TotalFreeBytes / 1024) / 1024), 
    "###,###,##0.00") & vbCrLf  

  13. strResult += "已用空间(MB):" & Format
    (CDbl(((TotalBytes - TotalFreeBytes) 
    / 1024) / 1024), "###,###,##0.00") & vbCrLf  

  14. MsgBox(strResult)  

  15. End Sub 

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

FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。调用方法如下:

在项目菜单中选择引用,在COM中选择Microsoft Scripting Runtime

在代码最顶端添加Imports Scripting,在按钮的单击事件中加入以下代码:

  1. Imports Scripting  

  2. Private Sub btnFso_Click(ByVal 
    sender As System.Object, ByVal e 
    As System.EventArgs) Handles 
    btnFso.Click  

  3. Dim Fso As New FileSystemObject  

  4. Dim drvDisk As Drive, 
    strResult As String  

  5. drvDisk = Fso.GetDrive("C:\")  

  6. strResult = "Drive " & 
    "C:\" & vbCrLf  

  7. strResult += "磁盘卷标:" & 
    drvDisk.VolumeName & vbCrLf  

  8. strResult += "磁盘序列号:" & 
    drvDisk.SerialNumber & vbCrLf  

  9. strResult += "磁盘类型:" & 
    drvDisk.DriveType & vbCrLf  

  10. strResult += "文件系统:" & 
    drvDisk.FileSystem & vbCrLf  

  11. strResult += "磁盘容量(G): " & 
    FormatNumber(((drvDisk.TotalSize / 
    1024) / 1024) / 1024, 2, , , 
    Microsoft.VisualBasic.TriState.True) & 
    vbCrLf  

  12. strResult += "可用空间(G): " & 
    FormatNumber(((drvDisk.FreeSpace / 1024) 
    / 1024) / 1024, 2, , , Microsoft.
    VisualBasic.TriState.True) & vbCrLf  

  13. strResult += "已用空间(G):" & FormatNumber
    (((((drvDisk.TotalSize - drvDisk.FreeSpace) 
    / 1024) / 1024) / 1024), 2, , , Microsoft.
    VisualBasic.TriState.True)  

  14. MsgBox(strResult)  

  15. End Sub 

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

  1. Private Declare Function GetVolume
    Information Lib "kernel32" Alias 
    "GetVolumeInformationA" ()  

  2. (ByVal lpRootPathName As String, 
    ByVal lpVolumeNameBuffer As String, 
    ByVal _  

  3. nVolumeNameSize As Integer, ByRef 
    lpVolumeSerialNumber As Long, _  

  4. ByVal lpMaximumComponentLength As 
    Integer, ByVal lpFileSystemFlags 
    As Integer, ByVal _  

  5. lpFileSystemNameBuffer As String, 
    ByVal nFileSystemNameSize As Integer) 
    As Integer  

  6. Private Sub Button2_Click(ByVal sender 
    As System.Object, ByVal e As System.
    EventArgs) Handles Button2.Click  

  7. Dim SerialNumber As Long  

  8. Dim TempStr1 As New String(Chr(0), 255)  

  9. Dim TempStr2 As New String(Chr(0), 255)  

  10. Dim TempInt1, TempInt2 As Integer  

  11. GetVolumeInformation("C:\", TempStr1, 
    256, SerialNumber, TempInt1, 
    TempInt2, TempStr2, 256)  

  12. MsgBox("C盘序列号:" & SerialNumber)  

  13. End Sub 

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

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

我们需要使用.net Framwork里面System.Management命名空间下提供的类来实现。

  1. Imports System.Management  

  2. Private Sub Button3_Click(ByVal sender 
    As System.Object, ByVal e As System.
    EventArgs) Handles Button3.Click  

  3. Dim disk As ManagementBaseObject  

  4. Dim strResult As String  

  5. Dim diskClass = New ManagementClass
    ("Win32_LogicalDisk")  

  6. Dim disks As ManagementObjectCollection  

  7. disks = diskClass.GetInstances()  

  8. For Each disk In disks  

  9. strResult = "" 

  10. strResult += "设备ID:" & disk
    ("DeviceID") & vbCrLf  

  11. strResult += "磁盘名称:" & disk("Name") 
    & vbCrLf  

  12. strResult += "磁盘卷标:" & disk("VolumeName") 
    & vbCrLf  

  13. If disk("FileSystem") <> "" Then strResult 
    += "文件系统:" & disk("FileSystem") & vbCrLf  

  14. strResult += "磁盘描述:" & disk
    ("Description") & vbCrLf  

  15. If System.Convert.ToInt64(disk("Size"))
     > 0 Then  

  16. strResult += "磁盘大小:" & System.
    Convert.ToInt64(disk("Size").ToString())
     & vbCrLf  

  17. strResult += "磁盘类型:" & System.Convert.
    ToInt16(disk("DriveType").ToString())  

  18. End If  

  19. MsgBox(strResult)  

  20. Next  

  21. End Sub 

看完上述内容,你们掌握VB.NET中怎么获取硬盘信息的方法了吗?如果还想学到更多技能或想了解更多相关内容,欢迎关注亿速云行业资讯频道,感谢各位的阅读!

推荐阅读:
  1. 易语言获取计算机硬盘信息的代码
  2. Java如何实现获取cpu、内存、硬盘、网络等信息的方法

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

vb.net

上一篇:VB.NET中怎么创建一个类

下一篇:VB.NET中怎么操作文件夹

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》