描述

语法

object 应为 FileSystemObject 对象的名称。

说明

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

Function ShowDriveList
    Dim fso, d, dc, s, n
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set dc = fso.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - " 
        If d.DriveType = 3 Then
            n = d.ShareName
        ElseIf d.IsReady Then
            n = d.VolumeName
        End If
        s = s & n & "<BR>
    Next
   ShowDriveList = s
End Function