Drives 屬性
返回由本地機(jī)器上所有 Drive 對(duì)象組成的 Drives 集合。
object.Drives
object 應(yīng)為 FileSystemObject 對(duì)象的名稱。
說(shuō)明
無(wú)論是否插入媒體,可移動(dòng)媒體驅(qū)動(dòng)器都顯示在 Drives 集合中。
您可以使用 For Each...Next 結(jié)構(gòu)枚舉 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