home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Resources / System / BoingBag1 / Contributions / Workbench / ARexx / OpenSelDrawer.rexx < prev    next >
OS/2 REXX Batch file  |  1999-12-20  |  415b  |  21 lines
  1. /*
  2.    $VER: OpenSelectedDrawer.rexx 1.0 (28.8.99) Copyright (c) Nils Görs.
  3.  
  4.   Opens a selected drawer. This script needs "requestdevice".
  5. */
  6.  
  7. options results
  8.  
  9. PARSE ARG Path
  10.  
  11. IF PATH = "" THEN DO
  12.     id='req'pragma('id')
  13.     address command 'rxset' id '`requestdevice TITLE="Select Directory to open"`'
  14.     IF rc = 5 THEN EXIT
  15.     Path=getclip(id)
  16.     call setclip(id,'')
  17. END
  18. ADDRESS WORKBENCH
  19.  
  20. WINDOW WINDOWS '"'||path||'"' OPEN
  21.