VB.NET 取驱动器列表 / 磁盘

最新推荐文章于 2025-05-15 21:39:09 发布

苏璃

最新推荐文章于 2025-05-15 21:39:09 发布

阅读量1k

点赞数 1

分类专栏： VB.NET

本文链接：https://blog.youkuaiyun.com/u012395622/article/details/50223881

版权

VB.NET 专栏收录该内容

10 篇文章

订阅专栏

本文介绍如何使用GetLogicalDriveStrings函数从Windows系统中获取逻辑磁盘驱动器的根路径字符串，并对其进行处理以显示磁盘驱动器列表。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在本文中通过GetLogicalDriveStrings函数，获取到“逻辑磁盘驱动根路径字串”

然后我们再把返回的缓冲区中的值进行处理、

函数示意：

GetLogicalDriveStrings 取逻辑磁盘驱动根路径字串

成功返回“逻辑磁盘驱动根路径字串”大小、否则返回缺省值0

nBufferLength 欲接收缓冲区尺寸

lpBuffer 欲接收缓冲区指针

示例代码：

Imports System.Runtime.InteropServices
Imports System.Text.RegularExpressions

Module MainModule

    Public Declare Function GetLogicalDriveStrings Lib "kernel32.dll" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Integer,
                                                                          ByVal lpBuffer As String) As Integer

    Sub Main()
        Console.Title = "取磁盘驱动器列表"
        Dim len As Integer = GetLogicalDriveStrings(0, Nothing)
        If (len <= 0) Then
            Throw New Exception("Unable to get buffer length.")
        End If
        Dim buffer As String = Space(len)
        If (GetLogicalDriveStrings(len, buffer) <= 0) Then
            Throw New Exception("Unable to get the list of disks.")
        End If
        Dim matchs = Regex.Matches(buffer, "[A-Z|a-z]+\:\\")
        For Each match As Match In matchs
            Console.WriteLine(match.Value)
        Next
        Console.ReadKey(False)
    End Sub

End Module