asp 顯示目錄所有檔案

option   explicit
dim   infopath                     '當前路徑  
dim   serverpath                 '伺服器路徑  
dim   objfso                         '檔案組件  
dim   objfile                       '檔案  
dim   objfolder                   '目錄  
dim   objfoldercontents   '所有檔案  
dim   objfoldercount         '臨時陣列變數-檔案夾  
dim   objfileitem               '臨時陣列變數-檔案

infopath=request.servervariables("path_info")       '得到檔案相對路徑  
serverpath=server.mappath(infopath)                                   '得到檔案絕對路徑  

set   objfso=createobject("scripting.filesystemobject")       '執行個體檔案組件  
set   objfile=objfso.getfile(serverpath)                                     '讀取檔案所在路徑  
set   objfolder=objfile.parentfolder                                             '根據檔案所在路徑得到上級目錄  

set   objfoldercontents=objfolder.files                                       '所有檔案付給數組    

for   each   objfileitem   in   objfoldercontents                               '迴圈  
response.write("http://www.111cn.net/" & objfileitem.name&"<br />")             '檔案名稱  
next  

'代碼二

set fso = server.createobject("scripting.filesystemobject")
if fso.folderexists(request("filepath")) then
set objfolder = fso.getfolder(request("filepath"))
 for each objfile in objfolder.files
             response.write objfile.name
         next
         set objfolder = nothing
set fso = nothing

'這樣可以顯示所有檔案,但不包括檔案夾
%>