遍歷目錄以及目錄下文件的函數(shù)
更新時(shí)間：2006年10月28日 00:00:00 作者：
<%@ Language=VBScript%>
<%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:盤
%>
--------------------------------------
很不錯(cuò)哦。
<%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:盤
%>
--------------------------------------
很不錯(cuò)哦。
相關(guān)文章
清空iis log 中自己登錄ip的vbs...2006-10-10
文本搜索...2006-10-10
列出指定目錄下的所有文件和目錄...2006-10-10
一個(gè)簡(jiǎn)單的HTML病毒分析...2006-10-10
fso實(shí)例...2006-10-10
用asp實(shí)現(xiàn)的代碼批量修改程序，fso相關(guān)
用asp實(shí)現(xiàn)的代碼批量修改程序，fso相關(guān)...2006-10-10
在線用表單建立文件夾...2006-10-10
fso實(shí)例...2006-10-10
利用FSO取得BMP，JPG，PNG，GIF文件信息...2006-10-10
fso的一些特殊功能...2006-10-10