欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Drives 集合

只讀所有可用驅(qū)動(dòng)器的集合。

說(shuō)明

無(wú)論是否插入媒體，可移動(dòng)媒體驅(qū)動(dòng)器都顯示在 Drives 集合中。

以下代碼舉例說(shuō)明如何獲得 Drives 集合并使用 For Each...Next 語(yǔ)句枚舉集合成員：

ShowDriveList 函數(shù)
    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 = Remote Then
            n = d.ShareName
        ElseIf d.IsReady Then
            n = d.VolumeName
        End If
        s = s & n &"<BR>" 
    Next
   ShowDriveList = s
End Function

屬性

Count 屬性 | Item 屬性

方法

Drives 集合無(wú)任何方法。

請(qǐng)參閱