1.4 文件夾集合

Drive對象的RootFolder屬性返回的是驅(qū)動器的根文件夾，它是一個Folder對象。Folder對象的SubFolders屬性返回所有子文件夾的集合，可以使用For Each語句遍歷它，集合中的每一項都是一個Folder對象。

下例輸出C盤根目錄下的所有文件夾的名字。

FolderList.asp

<%@codepage=936%>
<! --#include File="fso_function.asp" -->
<%
Response.Charset = "GBK"

Set fso = CreateObject("Scripting.FileSystemObject")

'取得C盤根目錄
Set rootFolder = fso.GetDrive("c:\").RootFolder

'取得子文件夾的集合
Set folders = rootFolder.SubFolders

'文件夾個數(shù)
response.write "文件夾個數(shù)：" & folders.count & "<br>"

'輸出子文件夾的名字
For Each folder In folders
    Response.Write folder.name & "<br>"
Next
Set fso = Nothing
%>

運行結(jié)果如圖1-3所示。

圖1-3 輸出C盤根目錄下的所有文件夾

其中，System Volume Information實際上是一個隱藏文件夾。在資源管理器中可能看不到它，但對于FSO來說，一覽無余。FSO會把具有隱藏、系統(tǒng)屬性的文件夾都列出來。