龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

VBS教程:对象-Drives 集合

时间:2014-07-12 15:04来源:网络整理 作者:网络 点击:
分享到:
VBS教程:对象-Drives 集合

Drives 集合

只读所有可用驱动器的集合。

说明

无论是否插入媒体,可移动媒体驱动器都显示在 Drives 集合中。

以下代码举例说明如何获得 Drives 集合并使用 For Each...Next 语句枚举集合成员:

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 = Remote Then            n = d.ShareName        ElseIf d.IsReady Then            n = d.VolumeName        End If        s = s & n &"<BR>"     Next   ShowDriveList = sEnd Function
精彩图集

赞助商链接