home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / proasm / rexx / dopus / remasxincdir.dopus < prev    next >
Text File  |  1996-04-29  |  701b  |  30 lines
  1. /* Remove selected directories as IncDir from ASX */
  2. /* for Directory Opus 4, using ASX                */
  3. /* 06.07.93 by Daniel Weber                       */
  4.  
  5.  
  6. OPTIONS RESULTS
  7. dopusPort = ADDRESS()            /* get port name of DOpus    */
  8.  
  9. status 3                /* get #of active window     */
  10. win = result
  11. status 13 win                /* get actual selected drive */
  12. path = result
  13. getselecteddirs '+'            /* get selected dirs from DOpus */
  14. IF RC ~= 0 THEN EXIT(0)
  15. files = result
  16.  
  17. DO WHILE files ~=''
  18.   PARSE VAR files incpath '+' files
  19.  
  20.   ADDRESS (''||dopusPort)        /* show file name  */
  21.   toptext 'RemIncDir 'path''incpath
  22.  
  23.   ADDRESS 'asx_rexx'
  24.   RemIncDir path''incpath    /* remove selected directories as IncDir */
  25.  
  26. END
  27.  
  28. EXIT(0)
  29.  
  30.