Thanks, Rebolers!

Finaly I got what I wanted:

readChaptDir2: func [ thisDir depth
        /local rez
        ] [
        rez: copy ""
        repeat aFile sort read thisDir copy/deep [
                if depth > 0 [
                        either #"/" = last aFile [
                                repend rez [ "<br>Dir:" join thisDir aFile ]
                                repend rez readChaptDir2 join thisDir aFile 
(depth - 1)
                        ][
                                repend rez [ "<br>file:" join thisDir aFile ]
                        ]
                ]               
        ]
        return rez
]

I'll try to study those binding and scoping things.
I have feeling that there is a power and worth to do it.

brgds
Janeks

-- 
To unsubscribe from the list, just send an email to 
lists at rebol.com with unsubscribe as the subject.

Reply via email to