返回一个 Drives 集合,包含了本地机器上所有可用的 Drive 对象。
object.Drives
object 应为 FileSystemObject 。
可移动媒体的驱动器不需要插入媒体就可以出现在 Drives 集合中。
[JScript]
可以通过 Enumerator 对象和 for 语句来逐个引用 Drives 集合中的成员:
[JScript]
function ShowDriveList()
{
var fso, s, n, e, x;
fso = new ActiveXObject("Scripting.FileSystemObject");
e = new Enumerator(fso.Drives
);
s = "";
for (; !e.atEnd(); e.moveNext())
{
x = e.item();
s = s + x.DriveLetter;
s += " - ";
if (x.DriveType == 3)
n = x.ShareName;
else if (x.IsReady)
n = x.VolumeName;
else
n = "[Drive not ready]";
s += n + "<br>";
}
return(s);
}
[VBScript]
如下列代码所示,可以使用 For Each...Next 结构遍历 Drives 集合的成员:
[VBScript]
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