home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / pmbu12.zip / InstDeu.cmd < prev    next >
OS/2 REXX Batch file  |  1997-07-20  |  2KB  |  67 lines
  1. /* install.cmd ** Installationroutine für PMBackup */
  2.  
  3. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  4. call SysLoadFuncs
  5.  
  6. call SysCls
  7.  
  8. say
  9. say "*****     Installation von PMBackup     *****"
  10. say
  11. say
  12. say "Geben Sie bitte den vollständigen Pfad an,"
  13. say "in dem PMBackup installiert werden soll :"
  14. say
  15. pull progPath
  16. say
  17.  
  18. curDir = directory()
  19.  
  20. rc = SysMkDir(progPath)
  21. if (rc <> 0) then
  22. do
  23.     say "Fehler beim Erstellen des Verzeichnisses : " progPath
  24.  
  25.     say
  26.     say " Versuche Installation fortzusetzen !"
  27. end
  28. say
  29.  
  30. /* Dateien kopieren */
  31. say "Kopiere Datei PMBUD.Exe von " curdir " nach " progPath
  32. quelle = curDir||"\PMBUD.EXE"
  33. ziel = progPath||"\PMBUD.EXE"
  34. copy quelle ziel
  35.  
  36. say "Kopiere Datei PMBU.INI von " curdir " nach " progPath
  37. quelle = curDir||"\PMBU.INI"
  38. ziel = progPath||"\PMBU.INI"
  39. copy quelle ziel
  40.  
  41.  
  42. say "Kopiere Datei Liesmich.txt von " curdir " nach " progPath
  43. quelle = curDir||"\Liesmich.txt"
  44. ziel = progPath||"\Liesmich.txt"
  45. copy quelle ziel
  46.  
  47. say "Kopiere Datei Register.txt von " curdir " nach " progPath
  48. quelle = curDir||"\Register.txt"
  49. ziel = progPath||"\Register.txt"
  50. copy quelle ziel
  51.  
  52. say "Kopiere Datei history.txt von " curdir " nach " progPath
  53. quelle = curDir||"\history.txt"
  54. ziel = progPath||"\history.txt"
  55. copy quelle ziel
  56.  
  57.  
  58. say
  59. say "Erstelle Programmobjekt auf Arbeitsoberfläche"
  60. exePath = progPath||"\PMBUD.EXE"
  61. call SysCreateObject "WPProgram", "PMBackup", "<WP_DESKTOP>",,
  62.             "EXENAME="exePath
  63.  
  64.  
  65. call SysDropFuncs
  66.  
  67. exit