Drives 集合

所有可用驱动器的只读集合。

备注

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

以下代码演示如何使用 For Each... 获取 驱动器 集合并循环访问集合 。Next 语句：

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 = Remote Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub

另请参阅

• Drive 对象
• 对象 (Visual Basic for Applications)
• Office 对象库参考（成员、属性、方法）

支持和反馈

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