[align=left]
[p]<% [br]option explicit [br]dim infopath '当前路径 [br]dim serverpath '服务器路径 [br]dim objfso '文件组件 [br]dim objfile '文件 [br]dim objfolder '目录 [br]dim objfoldercontents '所有文件 [br]dim objfoldercount '临时数组变量-文件夹 [br]dim objfileitem '临时数组变量-文件 [br]dim fsize[/p]
[p]function file_size(filesize)[br]select case true [br]case filesize<1024 [br]fsize=filesize&" b" [br]case filesize<1048576 [br]fsize=round((filesize/1024),0)&" kb" [br]case filesize<1073741824 [br]fsize=round((filesize/1024/1024),0)&" mb" [br]case else [br]fsize=round((filesize/1024/1024/1024),0)&" gb" [br]end select[br]file_size=fsize[br]end function[/p]
[p]set objfso=createobject("scripting.filesystemobject") '实例文件组件 [br]set objfile=objfso.getfile("e:\wwwroot\file\table.asp") '读取文件所在路径 [br]set objfolder=objfile.parentfolder '根据文件所在路径得到上级目录 [br]set objfoldercontents=objfolder.files '所有文件付给数组 [br]response.write "" [br]response.write "" [br]response.write "" [br]response.write "" [br]response.write "" [/p]
[p]for each objfoldercount in objfolder.subfolders '循环显示文件夹 [/p]
[p]response.write "" '文件夹名称 [br]response.write "" '文件夹属性 [br]response.write "" [/p]
[p]'文件夹大小 [br]response.write "" '时间 [br]next [/p]
[p]for each objfileitem in objfoldercontents '循环 [br]response.write "" [/p]
[p]'文件名 [br]response.write "" '类型 [br]response.write "" '文件大小 [br]response.write "" '更新日期 [br]next [br]response.write "

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

" [br]%>[/p][/align]