home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / dcpy20.zip / install.cmd next >
OS/2 REXX Batch file  |  1994-04-09  |  1KB  |  56 lines
  1. /* Installation script for PM DCopy.
  2.  * - J.R.Shannon 1992, 1993.
  3.  */
  4.  
  5. CALL rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  6. CALL sysloadfuncs
  7.  
  8. SrcDir = ' '
  9. DO UNTIL SrcDir <> ''
  10.    SAY 'Please enter the drive or directory where the PM Dcopy files currently'
  11.    SAY 'reside (e.g. A:, or C:\TEMP):'
  12.    PULL SrcDir
  13. END
  14. IF Right(SrcDir,1) <> '\' THEN SrcDir = SrcDir||'\'
  15.  
  16. DestDir = ''
  17. DO UNTIL DestDir <> ''
  18.    SAY 'Please enter the full pathname of the directory into which you'
  19.    SAY 'would like PM DCopy to be installed (eg. C:\FILES\APPS\PMDCOPY):'
  20.    PULL DestDir
  21. END
  22.  
  23. rc = SysFileTree(DestDir, 'Dirs', 'D')
  24.  
  25. IF Dirs.0 = 0 THEN
  26.   CALL SysMkDir DestDir
  27.  
  28. folder = ''
  29. SAY 'Do you want a PM DCopy program object created on the desktop? (Y/N)'
  30. PULL response
  31. IF response = "Y" THEN
  32.    folder = '<WP_DESKTOP>'
  33.  
  34. '@copy' SrcDir||'pmdcopy.exe' destdir
  35. '@copy' SrcDir||'pmdcopy.hlp' destdir
  36.  
  37. IF folder <> '' THEN
  38. DO
  39.   SAY 'Creating program object...'
  40.  
  41.   Type='WPProgram'
  42.   Title='PM DCopy'
  43.   Parms='MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='DestDir'\PMDcopy.exe;STARTUPDIR='DestDir';OBJECTID=<PMDCOPY>;NOPRINT=YES'
  44.         
  45.   rc = SysCreateObject(Type, Title, Folder, Parms)
  46.  
  47.   IF rc = 1 THEN
  48.     SAY 'Desktop object created...'
  49.   ELSE
  50.     SAY 'Desktop creation failed - rc =' rc
  51. END
  52.  
  53. SAY 'Installation complete!'
  54.  
  55.  
  56.