＂卡＂住了，帮忙解决一下，比较棘手

[qhdhdwjf]

是这样的,函数function leiji()
　　　　　　　if 条件 then
For j = LBound(aryReturn) To UBound(aryReturn)
a=5
count=count+a
　　　　　　　　　　　 ...
if 条件符合 then
call leiji()
end if
next
else
return count
函数结束
end function
当有大于两次以上for循环且if语句也是多次符合条件时,UBound(aryReturn)记录的是最后一次调用leiji()时的值,然后结束函数，怎么浏览，当j=0或1时UBound(aryReturn)是多少???怎么获取??

[jspadmin]

end if
tmp=tmp+"'"+UBound(aryReturn)
next

循环完了后，再split(tmp,",")，依次取出值

[尚和空四]

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

[qhdhdwjf]

不明白,你说的意思,请指教

[qhdhdwjf]

函数递归可以了,但还的控制递归次数,还没解决,解决中...,那位有更好的方法??