驱动器属性

返回一个 Drive 集合,该集合由本地计算机上可用的所有 Drive 对象组成。

语法

对象驱动器

对象始终是 FileSystemObject

备注

可移动媒体驱动器中不需要插入媒体即可显示在 Drives 集合中。

可以使用 For Each 循环访问 驱动器 集合的成员 ...下一个 构造,如以下代码所示。

Sub ShowDriveList
    Dim fs, d, dc, s, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - " 
        If d.DriveType = 3 Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。