<%
option explicit
dim infopath '当前路径
dim serverpath '服务器路径
dim objfso '文件组件
dim objfile '文件
dim objfolder '目录
dim objfoldercontents '所有文件
dim objfoldercount '临时数组变量-文件夹
dim objfileitem '临时数组变量-文件
dim fsize

function file_size(filesize)
select case true
case filesize<1024
fsize=filesize&" b"
case filesize<1048576
fsize=round((filesize/1024),0)&" kb"
case filesize<1073741824
fsize=round((filesize/1024/1024),0)&" mb"
case else
fsize=round((filesize/1024/1024/1024),0)&" gb"
end select
file_size=fsize
end function

set objfso=createobject("scripting.filesystemobject") '实例文件组件
set objfile=objfso.getfile("e:\wwwroot\file\table.asp") '读取文件所在路径
set objfolder=objfile.parentfolder '根据文件所在路径得到上级目录
set objfoldercontents=objfolder.files '所有文件付给数组
response.write ""
response.write ""
response.write ""
response.write ""
response.write ""

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

response.write "

" '文件夹名称
response.write "" '文件夹属性
response.write ""

'文件夹大小
response.write "

" '时间
next

for each objfileitem in objfoldercontents '循环
response.write "

"

'文件名
response.write "

" '类型
response.write "" '文件大小
response.write "" '更新日期
next
response.write "

文件名	文件属性	文件大小	更新日期
"&objfoldercount.name&"	"&objfoldercount.type&"		"&objfoldercount.datecreated&"
"&objfileitem.name&"	"&objfileitem.type&"	"&file_size(objfileitem.size)&"	"&objfileitem.datelastmodified&"

"
%>