home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus4 / ArexxScripts / MultiLHArexxScript.lzx / REXX / MultiLHA2.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-12-03  |  1.3 KB  |  59 lines
  1. /*  
  2.  *******************************
  3.  * DOpus LHA Multi-selector    *
  4.  *                             *
  5.  *        The Archiver         *
  6.  *                             *
  7.  * $VER: 2.0 © RAM ® TGI 1994  *
  8.  *******************************
  9.  */
  10.  
  11. DOpusPort = 'DOPUS.1'
  12.  
  13. if ~show(l,"rexxsupport.library") then        
  14.     call addlib("rexxsupport.library",0,-30,0)
  15.  
  16. /* make sure we've got somebody to talk to */
  17.  
  18. if showlist('Ports', DOpusPort) = 0 then do
  19.    say 'Directory Opus ARexx port not found. Aborting.'
  20.    call CleanUp
  21. end
  22.  
  23. address 'DOPUS.1'
  24. options results
  25.  
  26. address 'DOPUS.1'
  27.  
  28. request "Have you selected the proper destination directory?"
  29. ans = RESULT
  30. if ans = 0 then exit
  31.  
  32. toptext "TGI/RAM"
  33. getstring "'Enter the destination filename'"
  34. outname = RESULT
  35.  
  36. if outname = ''|outname = 'RESULT'|outname = '1' then do
  37.    request "I need an output filename before I can continue, please!"
  38.    ans = RESULT
  39.    if ans = 1 then signal getname
  40.    exit
  41. end
  42.  
  43. status 3       /* get window number */
  44. win = RESULT
  45. status 13 win    /* get path of displayed window */
  46. path = RESULT
  47.  
  48. request path||outname
  49. ans = RESULT
  50. if ans = 0 then exit
  51. address command 'lha >nil: <nil: a -r 'path||outname '@ram:infiles.txt'
  52.  
  53. 'delete ram:infiles.txt quiet'
  54.  
  55. address 'DOPUS.1'
  56. status 3 set win
  57. status 13 win set path
  58. exit
  59.