遍歷目錄以及目錄下文件的函數(shù)
更新時(shí)間：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 "
---"
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 "
---"
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)文章
構(gòu)建免受 FSO 威脅虛擬主機(jī)（一）...2006-10-10
ASP中FSO的神奇功能 - 文件讀取...2006-10-10
filesystemobject組件的用法示例...2006-10-10
ASP中FSO的神奇功能 - 用FSO進(jìn)行內(nèi)容管理
ASP中FSO的神奇功能 - 用FSO進(jìn)行內(nèi)容管理...2006-10-10
用asp實(shí)現(xiàn)的代碼批量修改程序，fso相關(guān)
用asp實(shí)現(xiàn)的代碼批量修改程序，fso相關(guān)...2006-10-10
一個(gè)實(shí)用的FSO－實(shí)時(shí)統(tǒng)計(jì)在線人數(shù)
一個(gè)實(shí)用的FSO－實(shí)時(shí)統(tǒng)計(jì)在線人數(shù)...2006-10-10
怎樣判斷一個(gè)盤上是否有文件...2006-10-10
如何獲知頁面上的圖象的實(shí)際尺寸？...2006-10-10
利用FSO取得圖像文件信息...2006-10-10
列出指定目錄下的所有文件和目錄...2006-10-10