1.2 驅動器集合

FSO對象的Drives屬性返回所有驅動器的集合，可以使用For Each語句遍歷它，集合中的每一項都是一個Drive對象。

下例遍歷所有的驅動器，并輸出盤符及驅動器類型。

driveList.asp

<%@codepage=936%>
<%
Response.Charset = "GBK"
Set fso = CreateObject("Scripting.FileSystemObject")
Set driveList = fso.Drives   '取得Drives集合

'驅動器個數
response.write "驅動器個數：" & driveList.count & "<br>"

'輸出所有驅動器的盤符及類型
For Each drive In driveList
    Response.Write "驅動器" & drive.DriveLetter
    Response.Write ", " & GetDriveTypeName(drive.DriveType) & "<br>"
Next
Set fso = nothing

'取得驅動器類型的名稱
Function GetDriveTypeName(driveTypeNumber)
    Dim name
    Select Case driveTypeNumber
    Case 1
      name = "可移動磁盤"
    Case 2
      name = "硬盤"
    Case 3
      name = "網絡共享"
    Case 4
      name = "光驅"
    Case 5
      name = "RAM磁盤"
    Case Else
      name = "未知類型"
    End Select
    GetDriveTypeName = name
End Function
%>

運行結果如圖1-1所示。

圖1-1 遍歷所有的驅動器

Drive對象的DriveLetter屬性返回此驅動器的盤符字母，而DriveType屬性返回驅動器的類型，它的返回值是一個數字，數字的含義如表1-2所示。

表1-2 DriveType屬性

上例中的GetDriveTypeName方法是一個自定義方法，它根據數字返回對應的文字。