Drives（集合），意思是描述所有可用驱动器的只读集合，说明对于可删除的驱动器，不需要将媒体插入其中，它就可以在Drives集合中显示出来。

简介

Drives 集合 描述所有可用驱动器的只读集合。说明对于可删除的驱动器，不需要将媒体插入其中，它就可以在Drives集合中显示出来。下面的代码举例说明了如何获得 Drives 集合，以及如何用 For Each...Next 语句来访问该集合中的每个整理下代码

Drive：Sub ShowDriveList

Dim fs, d, dc, s, n

Set dc = fs.Drives For Each d in dc

If d.DriveType = Remote Then

n = d.ShareName

Else

n = d.VolumeName

End If

s = s & n & vbCrLf

Next

MsgBox s

End Sub