最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 显示目录所有文件
时间:2022-06-29 13:48:40 编辑:袖梨 来源:一聚教程网
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("http://www.111com.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
'这样可以显示所有文件,但不包括文件夹
%>
相关文章
- 《夜族崛起》铁匠西里尔位置一览 05-17
- 《寓言之地》1.02更新内容一览 05-17
- 《辐射4》steam好评率介绍 05-17
- 《夜族崛起》技能强化珠宝掉落说明 05-17
- 《辐射4》主机控制台介绍 05-17
- 《星露谷物语》海草和绿藻获取方法 05-17