home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / pmbu12.zip / InstEng.cmd < prev    next >
OS/2 REXX Batch file  |  1997-07-20  |  1KB  |  66 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 of PMBackup     *****"
  10. say
  11. say
  12. say "Please enter the full path"
  13. say "you want PMBackup to be installed :"
  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 "Error creating path : " progPath
  24.  
  25.     say
  26.     say " try to continue Installation !"
  27. end
  28. say
  29.  
  30. /* Dateien kopieren */
  31. say "copy file PMBUE.Exe from " curdir " to " progPath
  32. quelle = curDir||"\PMBUE.EXE"
  33. ziel = progPath||"\PMBUE.EXE"
  34. copy quelle ziel
  35.  
  36. say "copy file PMBU.INI von " curdir " nach " progPath
  37. quelle = curDir||"\PMBU.INI"
  38. ziel = progPath||"\PMBU.INI"
  39. copy quelle ziel
  40.  
  41. say "copy file Readme.txt von " curdir " nach " progPath
  42. quelle = curDir||"\Readme.txt"
  43. ziel = progPath||"\Readme.txt"
  44. copy quelle ziel
  45.  
  46. say "copy file Register.txt von " curdir " nach " progPath
  47. quelle = curDir||"\Register.txt"
  48. ziel = progPath||"\Register.txt"
  49. copy quelle ziel
  50.  
  51. say "copy file history.txt von " curdir " nach " progPath
  52. quelle = curDir||"\history.txt"
  53. ziel = progPath||"\history.txt"
  54. copy quelle ziel
  55.  
  56.  
  57. say
  58. say "Creating program object on WPS"
  59. exePath = progPath||"\PMBUE.EXE"
  60. call SysCreateObject "WPProgram", "PMBackup", "<WP_DESKTOP>",,
  61.             "EXENAME="exePath
  62.  
  63.  
  64. call SysDropFuncs
  65.  
  66. exit