金字塔学院

# Drives 属性

object.Drives

返回由本地机器上所有 Drive 对象组成的 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
应用于