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

VBS教程:對(duì)象-Drives 集合

 更新時(shí)間:2006年11月16日 00:00:00   作者:  

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 = sEnd Function

相關(guān)文章

最新評(píng)論