[REBOL] Multiple file requestor
From: btiffin::rogers::com at: 22-Jun-2007 0:03
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
;; The UI for this code...BLOWS, double cancel to get out...it's a proof of
request-files: has [files file-list dir cwd] [
file-list: copy 
files: copy 
while [dir: request-dir] [ ; Cancel here for out
while [files: request-file] [ ; Cancel here for back to dir select
append file-list files ; Accumulate the files
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.