请参阅                   应用于

描述

返回由本地机器上所有 Drive 对象组成的 Drives 集合。

语法

object.Drives

object 应为 FileSystemObject 对象的名称。

说明

无论是否插入媒体，可移动媒体驱动器都显示在 Drives 集合中。

您可以使用 For Each...Next 结构枚举 Drives 集合的成员，如下例所示：

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