Functions that traverse directories and files in directories

<%@ Language=VBScript%>
<%function bianli(path)
set fso=("")

on error resume next
set objFolder=(path)

set objSubFolders=

for each objSubFolder in objSubFolders

nowpath=path + "\" +

nowpath

set objFiles=

for each objFile in objFiles
"<br>---"

next
"<p>"
bianli(nowpath)'recursive

next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") 'Traveling d:disk
%>

--------------------------------------
Very good.