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

請(qǐng)參閱                   應(yīng)用于

描述

返回由本地機(jī)器上所有 Drive 對(duì)象組成的 Drives 集合。

語(yǔ)法

object.Drives

object 應(yīng)為 FileSystemObject 對(duì)象的名稱。

說(shuō)明

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

您可以使用 For Each...Next 結(jié)構(gòu)枚舉 Drives 集合的成員，如下例所示：

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 = 3 Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub