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

[REBOL] Re: request-dir

From: atruter:hih:au at: 3-Sep-2002 12:27

Reply to self, The following code (on windows) seems to do the trick: <code> request-dir: function [path] [where lst] [ view center-face layout [ where: info 300 form path lst: text-list 300x200 data insert remove-each file read path [not dir? path/:file] %../ [ either path <> %/ [ path: dirize clean-path join path lst/picked/1 ][ either not none? attempt [open dirize lst/picked/1] [ path: dirize lst/picked/1 ][ alert "Device not ready." ] ] lst/lines: remove-each file read path [not dir? path/:file] if path <> %/ [insert lst/lines %../] ; Refresh list clear lst/picked lst/sld/data: 0 lst/sn: 0 lst/sld/redrag lst/lc / max 1 length? head lst/lines show lst ; Refresh text where/text: path show where ] btn "Select" [unview] ] path ] new-dir: request-dir %/c/rebol/ </code> Note the use of "port" to determine whether removable media (typically %/a/ on windows) is actually present. Is this a good technique? (I don't know whether using port without a matching close is *a bad thing* or not). Regards, Ashley