asp 显示目录所有文件

option explicit
dim infopath '当前路径
dim serverpath '服务器路径
dim objfso '文件组件
dim objfile '文件
dim objfolder '目录
dim objfoldercontents '所有文件
dim objfoldercount '临时数组变量-文件夹
dim objfileitem '临时数组变量-文件

infopath=request.servervariables("path_info") '得到文件相对路径
serverpath=server.mappath(infopath) '得到文件绝对路径

set objfso=createobject("scripting.filesystemobject") '实例文件组件
set objfile=objfso.getfile(serverpath) '读取文件所在路径
set objfolder=objfile.parentfolder '根据文件所在路径得到上级目录

set objfoldercontents=objfolder.files '所有文件付给数组

for each objfileitem in objfoldercontents '循环
response.write("https://www.111cn.net/" & objfileitem.name&"
") '文件名
next

'代码二

set fso = server.createobject("scripting.filesystemobject")
if fso.folderexists(request("filepath")) then
set objfolder = fso.getfolder(request("filepath"))
for each objfile in objfolder.files
response.write objfile.name
next
set objfolder = nothing
set fso = nothing

'这样可以显示所有文件,但不包括文件夹
%>