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 = s
End Function
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
内蒙古资源网 Copyright www.nmgbbs.com
暂无“VBS教程:对象-Drives 集合”评论...