Question

在asp里，怎么获取一个文件夹内的文件数量？

比如相对路径为upfile/2006/
怎样获取2006这个文件夹里的文件数量？，请高人写一段完整的代码，非常感谢！
如果能获取指定后缀名的文件，比如只是.jpg文件的数量，那就更好了！
楼下的兄弟，你这段代码必须是绝对路径才行，我要的是相对路径，请再指点迷津，谢谢！

哈哈，终于搞定了，楼下的代码“fso.GetFolder(path) ”应改为“fso.GetFolder(Server.MapPath(path))”这样就是相对路径了，谢谢楼下的兄弟！

完整代码如下：

<%
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)
%>

Answer 1

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/)
%>
*****************************************