home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: SysTools / SysTools.zip / sysba021.zip / SB2_FLDR.CMD < prev    next >
OS/2 REXX Batch file  |  1999-10-13  |  1KB  |  34 lines
  1. /*
  2. ************************************************************************
  3. **
  4. **  SysBar/2 utility set
  5. **  (c) Dmitry I. Platonoff, 1995-1999
  6. **
  7. **----------------------------------------------------------------------
  8. **  Folder creation script
  9. ************************************************************************
  10. */
  11. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  12.  
  13.  
  14. sICO = directory()"//SB2_FLD"
  15. if SysCreateObject( 'WPFolder', 'SysBar/2 Utility Set', '<WP_DESKTOP>', "ICONFILE="sICO"1.ICO;ICONNFILE=1,"sICO"2.ICO;OBJECTID=<SYSBAR2FOLDER>" ) then
  16.   do
  17.     say 'SysBar/2 folder created'
  18.   end
  19. call CreateSB2Object 'CD' 'CD Player'
  20. call CreateSB2Object 'CLCK' 'Clock'
  21. call CreateSB2Object 'PIPE' 'Pipe Monitor'
  22. call CreateSB2Object 'TSWT' 'Task Switcher'
  23.  
  24. exit
  25.  
  26. CreateSB2Object:
  27.   parse arg sEXESuffix sNameSuffix
  28.   sEXE = directory()'\SB2_'sEXESuffix'.EXE'
  29.   sName = 'SysBar/2 'sNameSuffix
  30.   if SysCreateObject( 'WPProgram', sName, '<SYSBAR2FOLDER>', 'EXENAME='sEXE ) then
  31.     say 'Created object "'sName'" for 'sEXE
  32. return;
  33.  
  34.