熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp 顯示目錄所有文件

2013-11-13 10:35:27  來源: .NET編程 

  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.