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
'這樣可以顯示所有文件,但不包括文件夾
%>
