悠悠博客 关注Ajax技术与web开发

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

object.Drives

object 应为 FileSystemObject 对象的名称。

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

您可以使用 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
n = ""
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