fso获取文件夹内所有文件名列表的代码

最新推荐文章于 2020-11-14 11:55:30 发布

ttt015651

最新推荐文章于 2020-11-14 11:55:30 发布

阅读量1.3k

点赞数

分类专栏： asp fso 文章标签： each border 服务器 table path

asp 同时被 2 个专栏收录

27 篇文章 0 订阅

订阅专栏

fso

7 篇文章 0 订阅

订阅专栏

<%
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                                       '所有文件付

给数组
response.write   "<table   width=100%   border=0><tr>"
response.write   "<td>文件名</td>"
response.write   "<td>文件属性</td>"
response.write   "<td>文件大小</td>"
response.write   "<td>更新日期</td></tr>"


for   each   objfoldercount   in   objfolder.subfolders                   '循环显示文件夹

response.write "<tr><td><a

href=?path="&objfoldercount.name&">"&objfoldercount.name&"</td>"   '文件夹名称
response.write   "<td>"&objfoldercount.type&"</td>"                 '文件夹属性
response.write   "<td>     </td>"

'文件夹大小
response.write   "<td>"&objfoldercount.DateCreated&"</td>"   '时间
next


for   each   objfileitem   in   objfoldercontents                               '循环
response.write   "<tr><td><a   href="&objfileitem.name&">"&objfileitem.name&"</a></td>"

         '文件名
response.write   "<td>"&objfileitem.type&"</td>"           '类型
response.write   "<td>"&objfileitem.size&"k</td>"         '文件大小
response.write   "<td>"&objfileitem.datelastmodified&"</td></tr>"         '更新日期
next
response.write   "</table>"
%>

http://topic.csdn.net/t/20030627/08/1962839.html