home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / CDTools / S / UnLhA.awebrx < prev    next >
Text File  |  1999-10-07  |  309b  |  13 lines
  1. /* */
  2.  
  3. address command
  4. options results
  5. ExtractPath = 'RAM:'
  6. ExtractPath = AddPart(ExtractPath,'')
  7.  
  8. parse arg Archive
  9.  
  10. 'LhA x "'Archive'" "'ExtractPath'"'
  11. if RC > 0 then 'RequestChoice >NIL: "AmigActive CD" "An error occured while*Nextracting this archive" "OK"'
  12. else 'rx AACD03:CDTools/S/ShowDir' ExtractPath
  13.