吉林省论文:在asp里,怎么获取一个文件夹内的文件数量?

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/30 13:56:55
比如相对路径为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)
%>

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