home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / pmconv07.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  2001-02-03  |  3KB  |  83 lines
  1. /* Install V 1.0 von M. Hannig */
  2. call RxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
  3. call SysLoadFuncs
  4.  
  5. CALL SysCls
  6. say 'Markus Hannig'
  7. say 'Rexx Install 1.0'
  8. say
  9. say
  10. say
  11.  
  12.         /* Zielverzeichnis abfragen */
  13.  
  14.         say 'Target directory::'
  15.         say 'e.g.: C:\PMConv'
  16.         say 
  17.         PARSE PULL InstDir
  18.         InstDir = STRIP(InstDir, 'T', '\')
  19.         
  20.         /* verzeichnisse erstellen */
  21.         say 'Create directorys'
  22.         if InstallDir <> "." then
  23.         DO
  24.                 call SysFileTree installdir, "SearchDir", "D"
  25.                 if SearchDir.0 = 0 then do
  26.                         rc = SysMkDir(InstDir)
  27.                         if rc <> 0 then do
  28.                                 say "Error: Cannot create directory!" InstDir
  29.                                 exit
  30.                         end 
  31.                 end
  32.         end
  33.  
  34.  
  35.         /* Kopieren der Dateien */
  36.         say 'copy data'        
  37.  
  38.  
  39.         Befehl = '@del 'InstDir'\PMConv.exe'   
  40.         Befehl         
  41.         Befehl = '@Copy PMConv.exe 'InstDir'\PMConv.exe'
  42.         Befehl
  43.         Befehl = '@Copy cddb.ini 'InstDir'\cddb.ini'
  44.         Befehl
  45.            Befehl = '@Copy cddb.ini 'InstDir'\PMConv.ini'
  46.         Befehl
  47.         Befehl = '@Copy RexxGrab.ini 'InstDir'\RexxGrab.ini'
  48.         Befehl
  49.         Befehl = '@Copy RexxGrab.cmd 'InstDir'\RexxGrab.cmd'
  50.         Befehl
  51.         Befehl = '@Copy PMConv.ico 'InstDir'\PMConv.ico'
  52.         Befehl
  53.         Befehl = '@Copy RexxEnc.cmd 'InstDir'\RexxEnc.cmd'
  54.         Befehl
  55.         Befehl = '@Copy Readme.txt 'InstDir'\Readme.txt'
  56.         Befehl
  57.         Befehl = '@mkdir 'InstDir'\TOMPG'
  58.         Befehl
  59.         Befehl = '@Copy TOMPG\EncRexx.cmd 'InstDir'\TOMPG\EncRexx.cmd'
  60.         Befehl
  61.         Befehl = '@mkdir 'InstDir'\MP3enc'
  62.         Befehl
  63.         Befehl = '@Copy MP3Enc\EncRexx.cmd 'InstDir'\MP3Enc\EncRexx.cmd'
  64.         Befehl
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.         /* Erzeugen der Folder und Objecte */
  73.         /* Der Ordner wird erstellt */
  74.         rc =SysCreateObject("WPFolder", "PMConverter", "<WP_DESKTOP>", "OBJECTID=<PMConvOrdner>;ALWAYSSORT=NO", "Update" )  
  75.         rc =SysCreateObject("WPProgram", "PMConverter Public V0.07b", "<PMConvOrdner>", "EXENAME=" || InstDir ||"\PMConv.exe; OBJECTID=<PMConvExe>; STARTUPDIR=" || InstDir, "Update" )          
  76.         rc =SysCreateObject("WPProgram", "Read Me" , "<PMConvOrdner>", "EXENAME=E.EXE;PARAMETERS=" || InstDir || "\readme.txt", "replace")
  77.        
  78.         Befehl = '@e  'InstDir'\Readme.txt'
  79.         Befehl
  80.  
  81.         
  82.  
  83.