home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / tafeld08.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-04  |  956b  |  40 lines
  1. /* Install TafelEd/2 */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs';
  4. Call SysloadFuncs;
  5.  
  6. /* Query for installation path */
  7.  
  8. curdir = directory();
  9.  
  10. Say 'Enter the directory you which to install TafelEd/2 into (C:\TafelEd)';
  11. Pull instdir;
  12.  
  13. newdir = directory(instdir);
  14. if newdir <> instdir Then Do
  15.     rc = SysMkDir(instdir);
  16.     If rc > 0 Then Do
  17.         Say 'Couldnt create the selected directory - 'instdir;
  18.         Exit;
  19.     End;    
  20. End;
  21. newdir = directory(instdir);
  22.  
  23. /* Copy the files to this directory */
  24. Say 'Copying the files';
  25. '@COPY 'curdir'\*.*'
  26.  
  27. /* Create an object on the Desktop */
  28.  
  29. say 'Creating TafelEd/2 program object';
  30. title = 'TafelEd/2';
  31. classname = 'WPProgram';
  32. location = '<WP_DESKTOP>';
  33. setup = 'EXENAME='instdir'\TAFELED.EXE;STARTUPDIR='instdir';ASSOCFILTER=*.TT';
  34. call SysCreateObject classname,title,location,setup,u;
  35.  
  36. /* Completed */
  37.  
  38. newdir = directory(curdir);
  39. say 'Done';
  40.