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