Drives 属性
返回由本地机器上所有 Drive 对象组成的 Drives 集合。
object.Drives
object 应为 FileSystemObject 对象的名称。
说明
无论是否插入媒体,可移动媒体驱动器都显示在 Drives 集合中。
您可以使用 For Each...Next 结构枚举 Drives 集合的成员,如下例所示:
Function 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 = 3 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 属性”评论...