asp教程 显示目录所有文件
option explicit
dim infopath 当前路径
dim serverpath 服务器路径
dim objfso 文件组件
dim objfile 文件
dim objfolder 目录
dim objfoldercontents 所有文件
dim objfoldercount 临时数组变量文件夹
dim objfileitem 临时数组变量文件
infopath=requestservervariables("path_info") 得到文件相对路径
serverpath=servermappath(infopath) 得到文件绝对路径
set objfso=createobject("scriptingfilesystemobject") 实例文件组件
set objfile=objfsogetfile(serverpath) 读取文件所在路径
set objfolder=objfileparentfolder 根据文件所在路径得到上级目录
set objfoldercontents=objfolderfiles 所有文件付给数组
for each objfileitem in objfoldercontents 循环
responsewrite("文件名
next
代码二
set fso = servercreateobject("scriptingfilesystemobject")
if fsofolderexists(request("filepath")) then
set objfolder = fsogetfolder(request("filepath"))
for each objfile in objfolderfiles
responsewrite objfilename
next
set objfolder = nothing
set fso = nothing
这样可以显示所有文件但不包括文件夹
%>
