狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

[align=left]
[p]<% [br]option explicit [br]dim infopath '當(dāng)前路徑 [br]dim serverpath '服務(wù)器路徑 [br]dim objfso '文件組件 [br]dim objfile '文件 [br]dim objfolder '目錄 [br]dim objfoldercontents '所有文件 [br]dim objfoldercount '臨時數(shù)組變量-文件夾 [br]dim objfileitem '臨時數(shù)組變量-文件 [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 '根據(jù)文件所在路徑得到上級目錄 [br]set objfoldercontents=objfolder.files '所有文件付給數(shù)組 [br]response.write "" [br]response.write "" [br]response.write "" [br]response.write "" [br]response.write "" [/p]
[p]for each objfoldercount in objfolder.subfolders '循環(huán)顯示文件夾 [/p]
[p]response.write "" '文件夾名稱 [br]response.write "" '文件夾屬性 [br]response.write "" [/p]
[p]'文件夾大小 [br]response.write "" '時間 [br]next [/p]
[p]for each objfileitem in objfoldercontents '循環(huán) [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]