驱动器属性
返回一个 Drive 集合,该集合由本地计算机上可用的所有 Drive 对象组成。
语法
对象。驱动器
对象始终是 FileSystemObject。
备注
可移动媒体驱动器中不需要插入媒体即可显示在 Drives 集合中。
可以使用 For Each 循环访问 驱动器 集合的成员 ...下一个 构造,如以下代码所示。
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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。