home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / jot15.zip / install.cmd next >
OS/2 REXX Batch file  |  1996-01-14  |  613b  |  24 lines
  1. /* Install Jot to desktop */
  2.  
  3.  
  4.  
  5. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6. call SysLoadFuncs
  7.  
  8. call SysFileTree "Jot.exe", "exedir.", "FO"
  9. PathandProg = ExeDir.1
  10. InstallDir = Directory()
  11.  
  12. say 'Installing Jot from ' || Installdir || ' to desktop'
  13.  
  14. rc = SysCreateObject('WPProgram','Jot',,
  15.                      '<WP_DESKTOP>',,
  16.                      'EXENAME=' || PathandProg || ';' ||,
  17.                      'STARTUPDIR=' || InstallDir || ';',,
  18.                      'ReplaceIfExists')
  19. if rc = 1 then
  20.   say Jot successfully installed
  21. else
  22.   say Unable to install Jot to desktop
  23.  
  24.