Вопрос по поводу пробежки по дерикториям

Проблемма, <FRAMESTACK>.
Есть дериктория в которой еше дериктории и файлы и т.д. по кругу

Я пытаюсь пробежатса по всем дерикториям. В контсе падаю на <FRAMESTACK>.
Есть мысли, что можно сделать?
Спасибо
Вот код:
RecursiveDIRSCAN(JOB="",Path,wildcards="*",sortby="",nxt="") public ;ALEXB 23.06.2008
{
//This label scans RECURSIVELY the given path and returns ^ASORT(JOB,"DIRSCAN") with all directories and files in it matching the pattern wildcards
//For documintation of parameters (except JOB) look in documintation. Class - File in %Library, query name FileSet
//
//
set S="*"
IF JOB="" QUIT (0_S_"JOB הנתשמ רסח")
IF Path="" QUIT (0_S_"ביתנ רסח")
SET return=$$DIRSCAN^WBAGUTIL3(JOB,Path,wildcards,sortby,1)

for Letter="D","F"
{
set Last=$order(^ASORT(JOB,"DSCAN",Letter,""),-1)
set tmp=""
for {
set tmp=$order(^ASORT(JOB,"DIRSCAN",Letter,tmp))
quit:tmp=""
set ^ASORT(JOB,"DSCAN",Letter,$increment(Last))=^ASORT(JOB,"DIRSCAN",Letter,tmp)
}
}
KILL ^ASORT(JOB,"DIRSCAN")

for {
set Data=""
set nxt=$order(^ASORT(JOB,"DSCAN","D",nxt),1,Data)
quit:nxt=""
do RecursiveDIRSCAN(JOB,$PIECE(Data,S,1),wildcards,sortby,nxt)
}
merge ^ASORT(JOB,"DIRSCAN")=^ASORT(JOB,"DSCAN")
kill ^ASORT(JOB,"DSCAN")
quit (1)
RecursiveDIRSCANErrorTrap
quit (0_"*"_$ZERROR)
}

Язык Иврит
Про ошибку я понял,
По мойму предложение не поможет. Все равно будет очень много DO.
Спасибо

А можно пример.
Спасибо

Alex BiziА можно пример.
Спасибо

Дошло. Спасибо

krvsa Alex Bizi , интересно было бы посмотреть сколько уровней вложения достигаете? За это вроде $STACK отвечает...

250 Примерно

krvsaОднако! Что это за директории такие?

В MSM раньше можно было указывать колисество вложений... Как в Кащее я что-то не в курсе...
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT

Бывает