home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / filer.zip / Filer / install.cmd < prev    next >
OS/2 REXX Batch file  |  1995-06-25  |  792b  |  25 lines
  1. /*
  2.  * Filer installation script
  3.  */
  4.  
  5. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  6. call sysloadfuncs
  7.  
  8. call SysCls
  9. say 'Filer - Installation'
  10. say '--------------------'
  11. say ''
  12. say 'Creating folder object and program object...'
  13. say ''
  14.  
  15. currentdir = directory()
  16.  
  17. rc = SysCreateObject('WPFolder','Filer','<WP_DESKTOP>','OBJECTID=<FILER_PROGRAM_FOLDER>;')
  18.  
  19. if (SysCreateObject('WPProgram','Filer','<FILER_PROGRAM_FOLDER>','MINIMIZED=NO;PROGTYPE=PM;EXENAME='directory()'\Filer.exe;OBJECTID=<FILER_PROGRAM_OBJECT>;') = 0) THEN
  20.   rc = SysSetObjectData('<FILER_PROGRAM_OBJECT>','MINIMIZED=NO;PROGTYPE=PM;EXENAME='directory()'\Filer.exe;')
  21.  
  22. say 'A new folder "Filer" was created on your desktop.'
  23. say 'The program object for the database program can be found there!'
  24. Exit
  25.