Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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'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 ~~~~