Sean wrote:
> How do I get the code, listing: sort read %., to sort alphabetically by
directories first then by filenames?

I'd use something like this:

sort/compare probe read %/c/Rebol/ func [File1 [file!] File2 [file!]] [
 if all [(#"/" = last File1) (#"/" <> last File2)] [return true]
 if all [(#"/" <> last File1) (#"/" = last File2)] [return false]
 File1 < File2
 ]

I'm almost sure that the sorting function could be improved.

Andrew Martin
ICQ: 26227169 http://valley.150m.com/
-><-

-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.

Reply via email to