[p][color=#990000]以下是代碼片段：[/color][br][/p]
[p]<% [br] dim objfso,objfolder '聲明一個(gè)名稱為 objfso 的變量以存放對(duì)象實(shí)例 [br] set objfso = server.createobject("scripting.filesystemobject") [br] if objfso.folderexists(server.mappath("\")) then [br] response.write "上一級(jí)目錄：" &objfso.getparentfoldername(server.mappath("\"))&"
" [br] response.write "系統(tǒng)文件夾目錄：" &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")&"不存在，無法讀取相關(guān)信息！" [br] end if [br] set objfolder = nothing [br] set objfso = nothing '釋放 filesystemobject 對(duì)象實(shí)例內(nèi)存空間 [br] %> [/p]