home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 14 / AACD14.ISO / CDTools / S / UnLhA.awebrx < prev    next >
Text File  |  1999-12-15  |  360b  |  15 lines
  1. /*
  2.     $VER: UnLhA.awebrx 1.0 (31.8.99) (c) Neil Bothwick, Wirenet
  3. */
  4.  
  5. address command
  6. options results
  7. ExtractPath = 'RAM:'
  8. ExtractPath = AddPart(ExtractPath,'')
  9.  
  10. parse arg Archive
  11.  
  12. 'LhA x "'Archive'" "'ExtractPath'"'
  13. if RC > 0 then 'RequestChoice >NIL: "AmigActive CD" "An error occured while*Nextracting this archive" "OK"'
  14. else 'rx REXX:AAShowDir' ExtractPath
  15.