以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 Dot NET,C#,ASP,VB 』  (http://bbs.xml.org.cn/list.asp?boardid=43)
----  [求助]这段代码，asp如何获取指定文件夹下面文件夹的所有文件信息  (http://bbs.xml.org.cn/dispbbs.asp?boardid=43&rootid=&id=79688)

--  作者：xiamenhuli_xujh
--  发布时间：1/27/2010 9:25:00 AM

--  [求助]这段代码，asp如何获取指定文件夹下面文件夹的所有文件信息
这段代码，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 '所有文件付给数组
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&" target=""_blank"">"&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>"

--  作者：xiamenhuli_xujh
--  发布时间：1/27/2010 12:28:00 PM

--  
自己先顶下

斑竹  帮忙啊

W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 46.875ms