VB中能否通过驱动器名称而非盘符访问外部硬盘？

当然可以通过**卷标（驱动器名称）**找到对应的盘符，之后就能正常写入数据了——没办法直接通过卷标跳过盘符操作，必须先定位到盘符再进行文件操作。

下面是给你准备的简单代码，直接复制就能用：

1. 写一个获取盘符的函数 #

Function GetDriveLetterByVolumeLabel(targetLabel As String) As String
    Dim drv As Drive
    ' 遍历系统中所有驱动器
    For Each drv In DriveSystem.Drives
        ' 只找可移动磁盘（外部硬盘/U盘），同时忽略大小写匹配卷标
        If drv.DriveType = DriveType.Removable And UCase(drv.VolumeName) = UCase(targetLabel) Then
            ' 返回带冒号的盘符，比如"D:"
            GetDriveLetterByVolumeLabel = drv.DriveLetter & ":"
            Exit Function ' 找到就退出循环
        End If
    Next drv
    ' 没找到的话返回空字符串
    GetDriveLetterByVolumeLabel = ""
End Function

2. 调用函数并写入数据 #

Sub WriteToExternalDrive()
    Dim targetDriveLetter As String
    ' 替换成你的外部硬盘卷标，比如"我的备份盘"
    targetDriveLetter = GetDriveLetterByVolumeLabel("我的备份盘")
    
    If targetDriveLetter <> "" Then
        ' 比如写入一个文本文件到硬盘根目录
        Open targetDriveLetter & "\测试写入.txt" For Output As #1
        Print #1, "这是测试写入的内容"
        Close #1
        MsgBox "写入成功！"
    Else
        MsgBox "没找到目标硬盘，请确认已连接且卷标正确"
    End If
End Sub

注意事项 #

• 记得在项目里引用Microsoft Scripting Runtime：打开VB编辑器 -> 工具 -> 引用 -> 勾选这个选项，不然Drive对象会报错。
• 卷标要和硬盘实际的一致，比如你硬盘的卷标是"工作备份"，就别写错成"备份工作"。
• 代码里只找可移动磁盘，避免误匹配本地硬盘。

内容的提问来源于stack exchange，提问作者Ross from Brooklin