1.6 文件集合

Forder對象的Files屬性返回所有文件的集合，可以使用For Each語句遍歷它，集合中的每一項都是一個File對象。

下例將輸出C:\Program Files\Common Files\System\ado\文件夾下的所有文件的名字。

FileList.asp

<%@codepage=936%>
<%
Response.Charset = "GBK"

Set fso = CreateObject("Scripting.FileSystemObject")

folderPath = "C:\Program Files\Common Files\System\ado\"

'取得指定目錄
Set folder = fso.GetFolder(folderPath)

'取得該目錄下的文件集合
Set files = folder.Files

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

'輸出文件的名字
For Each file In files
    Response.Write file.name & "<br>"
Next
Set fso = nothing
%>

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

圖1-5 輸出所有文件的名字