怎样获取文件夹里的文件数量并显示文件名

怎样获取文件夹里的文件数量并显示文件名：

http://zhidao.baidu.com/question/6576259.html

 

 <%
path = "UploadFile/"
sub showFolderFileName(path)
dim fso
dim objFolder
dim objFiles
dim objFile
set fso=server.CreateObject("scripting.filesystemobject")
set objFolder=fso.GetFolder(Server.MapPath(path))
set objFiles=objFolder.Files
Response.Write "文件夹"&path&"包含的文件个数为："
Response.Write objFiles.count&"个<br>"
for each objFile in objFiles
Response.Write "---"&objFile.name&"<br>"
next
set objFile=nothing
set objFiles=nothing
set objFolder=nothing
set fso=nothing
end sub

call showFolderFileName(path)
%>

---------------------------------------------------

ASP代码过程如下：
*************************************
<%
sub showFolderFileName(path)
dim fso
dim objFolder
dim objFiles
dim objFile
set fso=server.CreateObject("scripting.filesystemobject")
set objFolder=fso.GetFolder(path)
set objFiles=objFolder.Files
Response.Write "文件夹"&path&"包含的文件个数为："
Response.Write objFiles.count&"个<br>"
for each objFile in objFiles
Response.Write "---"&objFile.name&"<br>"
next
set objFile=nothing
set objFiles=nothing
set objFolder=nothing
set fso=nothing
end sub

call showFolderFileName(upfile/2006/)
%>
*****************************************