home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / gaia101a.zip / UpdDesk.cmd < prev   
OS/2 REXX Batch file  |  1996-04-30  |  2KB  |  51 lines
  1. /* Aggiorna il DeskTop */
  2. Parse arg PathExe
  3.  
  4. IF PathExe = '' THEN
  5.   return
  6.  
  7. NL=D2C(13)
  8.  
  9. /* Carica le funzione per manipolare oggetti WPS */
  10. CALL RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  11.  
  12. /* Crea Il folder contenitore */
  13. res = SysCreateObject("WPFolder", "Gaia"||NL||" 1.01a", "<WP_DESKTOP>", "OBJECTID=<GAIAFOLDER>;ALWAYSSORT=YES;ICONFILE=" || PathExe || "\gaia.ico", replace)
  14.  
  15. IF STREAM(PathExe||'\GaiaNav.exe', 'c', 'query exists') <> '' THEN
  16. DO
  17.   res = SysCreateObject("WPProgram", "Gaia"||NL||" Navigator", "<GAIAFOLDER>", "EXENAME=" || PathExe || "\GaiaNav.exe;STARTUPDIR=" || PathExe, replace)
  18. END
  19.  
  20. IF STREAM(PathExe||'\GaiaCru.exe', 'c', 'query exists') <> '' THEN
  21. DO
  22.   res = SysCreateObject("WPProgram", "Gaia"||NL||" Cruiser", "<GAIAFOLDER>", "EXENAME=" || PathExe || "\GaiaCru.exe;STARTUPDIR=" || PathExe, replace)
  23. END
  24.  
  25. IF STREAM(PathExe||'\Install.exe', 'c', 'query exists') <> '' THEN
  26. DO
  27.   res = SysCreateObject("WPProgram", "Installer"||NL||" v1.1", "<GAIAFOLDER>", "EXENAME=" || PathExe || "\Install.exe", replace)
  28. END
  29.  
  30. IF STREAM(PathExe||'\GaiaCru.inf', 'c', 'query exists') <> '' THEN
  31. DO
  32.   res = SysCreateObject("WPProgram", "Gaia"||NL||" Cruiser (INF)", "<GAIAFOLDER>", "EXENAME=view.exe;PARAMETERS=" || PathExe || "\GaiaCru.inf;ICONFILE=" || PathExe || "\help2.ico", replace)
  33. END
  34.  
  35. IF STREAM(PathExe||'\GaiaNav.inf', 'c', 'query exists') <> '' THEN
  36. DO
  37.   res = SysCreateObject("WPProgram", "Gaia"||NL||" Navigator (INF)", "<GAIAFOLDER>", "EXENAME=view.exe;PARAMETERS=" || PathExe || "\GaiaNav.inf;ICONFILE=" || PathExe || "\help2.ico", replace)
  38. END
  39.  
  40. IF STREAM(PathExe||'\Install.inf', 'c', 'query exists') <> '' THEN
  41. DO
  42.   res = SysCreateObject("WPProgram", "Installer"||NL||" (INF)", "<GAIAFOLDER>", "EXENAME=view.exe;PARAMETERS=" || PathExe || "\Install.inf;ICONFILE=" || PathExe || "\help2.ico", replace)
  43. END
  44.  
  45. IF STREAM(PathExe||'\ReadMe.inf', 'c', 'query exists') <> '' THEN
  46. DO
  47.   res = SysCreateObject("WPProgram", "Read Me"||NL||" (INF)", "<GAIAFOLDER>", "EXENAME=view.exe;PARAMETERS=" || PathExe || "\ReadMe.inf;ICONFILE=" || PathExe || "\HELP.ICO", replace)
  48. END
  49.  
  50.  
  51.