Mailing List Archive: Multiple file requestor

[REBOL] Multiple file requestor

From: btiffin::rogers::com at: 22-Jun-2007 0:03


Hi,

I've got a hack routine to gather a file list.  The objective is to let a user
build up a list of files over as many dirs as they want.

;; Request-files, allow a build up of files from multiple calls to
request-dir, request-file
;; The UI for this code...BLOWS, double cancel to get out...it's a proof of
concept.
request-files: has [files file-list dir cwd] [
    cwd: what-dir
    file-list: copy []
    files: copy []
    while [dir: request-dir] [     ; Cancel here for out
        change-dir dir
        while [files: request-file] [   ; Cancel here for back to dir select
            append file-list files        ; Accumulate the files
        ]
    ]
    change-dir cwd
    unique file-list                        ; Not sure about use of /case here
]

I can only assume (hope) someone has a better gui filename bagger?  Any
pointers?  I've looked about a little and came up short.  So I thought I'd
ask before building this.

Cheers,
Brian
~~~~