home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 1 / AACD01.ISO / CDTools / S / UnLhA.awebrx < prev    next >
Encoding:
Text File  |  1999-08-31  |  309 b   |  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 AACD01:CDTools/S/ShowDir' ExtractPath
  13.