Hello, Christopher:
Thanks. See my reply to Ryan.
On 04-Oct-01, Christopher Ross-Gill wrote:
> This might be a useful starting point.
Hmm, this has some techniques that I don't understand, so I built something
simpler. I see yours does a couple of different reads; someone may find that
useful. There seems to be more sorting going on than necessary, too. One sort,
after the block is built, should be enough, no? I also like the idea of using
a function.
--
---===///||| Donald Dalley |||\\\===---
The World of AmiBroker Support
http://webhome.idirect.com/~ddalley
UIN/ICQ#: 65203020
> Usage:
> recurse-read ; prints all filenames in the current folder
> ; including subfolders
> recurse-read/sub %a/ ; prints all filenames in %a/ and it's subfolders
> REBOL []
> recurse-read: func [
> /sub dir [file! url!]
> /local files [block!]
> ][
> either sub [
> dir: dirize dir
> files: sort read dir
> ][
> dir: %""
> files: sort read %.
> ]
> foreach file files [
> either dir? join dir file [
> recurse-read/sub join dir file
> ][
> print rejoin [dir file]
> ]
> ]
> ]
> - Chris
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
