[REBOL] Re: Reading directories faster
From: reboler:programmer at: 10-Oct-2002 12:41
Re: Reading directories faster
It _was_ the 'dir? portion that was slowing things down.
'dir? uses 'info?, which uses 'query, so, as mentioned, there was a disk read on every
I am currently using ...
either none? df: attempt [read %./][
tell directory "Error reading Directory"
forall df [insert either #"/" = last df/1 [dirs][files] df/1]
; either dir? df/1 ; old method
This is supremely superior to the old 'dir? method!
I do pre-set the size of the dirs & files blocks, but before I go to a new directory,
I 'clear them rather than resetting them ("clear dirs" instead of "dirs: make block!
16"). Then they do have to grow dynamically, but only when I go to a larger directory.
This way they never grow larger than needed for the largest directory I visit - no wasted
Ashley, your "left field" sort works fine. It puts the directories at the head of the
but I need to have them separated from the files. This is also a neat way to group files
probe sort/compare read %. func [a b] [
either (last a) = (last b) [
a < b
(last a) < (last b)
Sign-up for your own FREE Personalized E-mail at Mail.com
Free price comparison tool gives you the best prices and cash back!