home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / MAXT21.LHA / rexx / NEWARC.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-09-26  |  820 b   |  73 lines
  1. /* ------------------------------------------------------------------
  2.  *
  3.  * MaxonTOOLS ARexx-Script
  4.  *
  5.  * name: NEWARC.rexx
  6.  * date: 26.09.1994
  7.  * auth: Klaus-D. Sommer
  8.  *
  9.  * © 1994 MAXON Computer GmbH
  10.  *
  11.  * ------------------------------------------------------------------
  12.  */
  13.  
  14. OPTIONS RESULTS
  15. ADDRESS MT_REXX
  16.  
  17. SAY 'Erzeuge Archiv ram:Test.LHA'
  18.  
  19. 'NEWARC LHA NAME=RAM:Test.LHA'
  20.  
  21. ok = RESULT
  22.  
  23. if (ok = 1) then
  24. do
  25.   SAY 'Archiv konnte erfolgreich erzeugt werden!'
  26.   SAY 'Kopiere Verzeichnis SYS:Rexx/ hinein...'
  27.  
  28.   'SWAPACTIVE'
  29.   'NDIR SYS:Rexxc'
  30.  
  31.   'ALL'
  32.   ne = RESULT
  33.  
  34.   'COPY'
  35.   nc = RESULT
  36.  
  37.   if ne = nc then
  38.   do
  39.     SAY 'Kopieren war erfolgreich!'
  40.   end
  41.   else
  42.   do
  43.     SAY 'Es konnten' ne-nc 'Dateien nicht kopiert werden'
  44.   end
  45. end
  46. else
  47. do
  48.   SAY 'Archiv konnte nicht erzeugt werden!'
  49. end
  50.  
  51.   
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.