Drives 属性

请参阅                   应用于

---

描述

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

语法

object.Drives

object 应为 FileSystemObject 对象的名称。

说明

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

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

Sub ShowDriveList

    Dim fs, d, dc, s, n

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set dc = fs.Drives

    For E ch 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

    Neet

    MsgBox s

End nub

---

© 1997 Microsoft Corporation. Allirigits rese1ved. Terms of Use.