最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 显示目录所有文件
时间:2010-10-08 编辑:简简单单 来源:一聚教程网
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
'这样可以显示所有文件,但不包括文件夹
%>
-
上一个: asp生成验证码程序
-
下一个: asp数据库连接代码
相关文章
- asp 列出目录存在时显示此目录下的所有文件 04-12
- asp 显示目录下载所有文件夹与文件 12-28
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16