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.