ASP，F(xiàn)SO遍歷目錄及目錄下文件
更新時間：2006年10月28日 00:00:00 作者：
<%@ Language=VBScript %>
<%
'我寫的一個遍歷目錄以及目錄下文件的函數(shù)，
%>
<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")
on error resume next
set objFolder=fso.GetFolder(path)
set objSubFolders=objFolder.Subfolders
for each objSubFolder in objSubFolders
nowpath=path + "\" + objSubFolder.name
Response.Write nowpath
set objFiles=objSubFolder.Files
for each objFile in objFiles
Response.Write "<br>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)'遞歸
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") '遍歷d:盤
%>
<%
'我寫的一個遍歷目錄以及目錄下文件的函數(shù)，
%>
<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")
on error resume next
set objFolder=fso.GetFolder(path)
set objSubFolders=objFolder.Subfolders
for each objSubFolder in objSubFolders
nowpath=path + "\" + objSubFolder.name
Response.Write nowpath
set objFiles=objSubFolder.Files
for each objFile in objFiles
Response.Write "<br>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)'遞歸
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") '遍歷d:盤
%>
相關(guān)文章
FSO的強大功能...2007-02-02
fso的一些特殊功能...2006-10-10
怎樣讀取一個文本文件的內(nèi)容?...2006-10-10
ASP中FSO的神奇功能 - 權(quán)限許可...2006-10-10
如何獲知頁面上的圖象的實際尺寸？...2006-10-10
從文本文件中讀取信息并存儲入數(shù)據(jù)庫...2006-10-10
處理驅(qū)動器和文件夾...2006-10-10
怎樣判斷一個盤上是否有文件...2006-10-10
奇妙的文件系統(tǒng)對象組件...2006-10-10
使用FSO把文本信息導(dǎo)入數(shù)據(jù)庫...2006-10-10