asp 顯示目錄所有文件

　　asp教程 顯示目錄所有文件
option   explicit
dim   infopath                     當前路徑  
dim   serverpath                 服務器路徑  
dim   objfso                         文件組件  
dim   objfile                       文件  
dim   objfolder                   目錄  
dim   objfoldercontents   所有文件  
dim   objfoldercount         臨時數組變量文件夾  
dim   objfileitem               臨時數組變量文件

　　infopath=requestservervariables("path_info")       得到文件相對路徑  
serverpath=servermappath(infopath)                                   得到文件絕對路徑 

　　set   objfso=createobject("scriptingfilesystemobject")       實例文件組件  
set   objfile=objfsogetfile(serverpath)                                     讀取文件所在路徑  
set   objfolder=objfileparentfolder                                             根據文件所在路徑得到上級目錄 

　　set   objfoldercontents=objfolderfiles                                       所有文件付給數組   

　　for   each   objfileitem   in   objfoldercontents                               循環  
responsewrite("文件名  
next 

　　代碼二

　　set fso = servercreateobject("scriptingfilesystemobject")
if fsofolderexists(request("filepath")) then
set objfolder = fsogetfolder(request("filepath"))
 for each objfile in objfolderfiles
             responsewrite objfilename
         next
         set objfolder = nothing
set fso = nothing

　　這樣可以顯示所有文件但不包括文件夾
%>

From:http://tw.wingwit.com/Article/program/net/201311/14070.html