精品秘无码一区二区三区老师-精品秘一区二三区免费雷安-精品蜜桃秘一区二区三区-精品蜜桃秘一区二区三区粉嫩-精品蜜桃一区二区三区-精品蜜臀国产aⅴ一区二区三区

[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]