Question

一个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=80% border=1 cellspacing=0 cellpadding=1 align=center><tr bgcolor=F4F4F4>"
response.write "<td width=400 align=center><font color=990033 >文件名</font></td>"
response.write "<td width=200 align=center>文件属性</td>"
response.write "<td width=200 align=center>文件大小</td>"
response.write "<td width=200 align=center>更新日期</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>"
%>

这是一个asp遍历文件夹内容的程序，只能打开文件夹里asp、jpg文件，而pdf、word等文件都打不开，我觉得主要是><a href="&objfileitem.name&">"&objfileitem.name&"</a>这行代码有问题，哪位高手给指点一下？？
我电脑里都装了那些软件了，不能打开

Answer 1

那些格式的文件打不开，可能你电脑没有相应打开的软件吧，找找再安装上那些相应的软件，一样也可以打开的。。

估计是你自己电脑的软件匹配问题了，因为我试过你的代码是可以的。。。

Answer 2

pdf、word是需要程序打开的。