Drives

Drives 集合 描述所有可用驅動器的只讀集合。説明對於可刪除的驅動器，不需要將媒體插入其中，它就可以在Drives集合中顯示出來。下面的代碼舉例説明了如何獲得 Drives 集合，以及如何用 For Each...Next 語句來訪問該集合中的每個整理下代碼

Drive：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 = Remote Then

n = d.ShareName

Else

n = d.VolumeName

End If

s = s & n & vbCrLf

Next

MsgBox s

End Sub