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

'文件个数
response.write "文件个数：" & files.count & "<br>"

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

运行结果如图1-5所示。

图1-5 输出所有文件的名字