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