国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

[p][color=#990000]以下是代碼片段：[/color][br][/p]
[p]<% [br] dim objfso,objfolder '聲明一個名稱為 objfso 的變量以存放對象實例 [br] set objfso = server.createobject("scripting.filesystemobject") [br] if objfso.folderexists(server.mappath("\")) then [br] response.write "上一級目錄：" &objfso.getparentfoldername(server.mappath("\"))&"
" [br] response.write "系統文件夾目錄：" &objfso.getspecialfolder(windowsfolder)&"
" [br] set objfolder = objfso.getfolder(server.mappath("\")) [br] response.write "文件夾的名稱："&objfolder.name&"
" [br] response.write "文件夾的路徑："&objfolder.path&"
" [br] response.write "文件夾的路徑："&objfolder.size/1024/1024&"
" [br] response.write "文件夾的建立日期："&objfolder.datecreated&"
" [br] else [br] response.write "文件夾"&server.mappath("\new\work\newfolder")&"不存在，無法讀取相關信息！" [br] end if [br] set objfolder = nothing [br] set objfso = nothing '釋放 filesystemobject 對象實例內存空間 [br] %> [/p]