home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / tolkit45.zip / os2tk45 / samples / wps / wsfile / install.cmd < prev    next >
OS/2 REXX Batch file  |  1999-05-11  |  1KB  |  43 lines
  1. /* */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4.  
  5. parse arg bootdrive
  6.  
  7. /* change following drive letter to your boot drive */
  8. if (bootdrive = "") then bootdrive = "d:"
  9.  
  10. libdir = bootdrive||"\os2\dll"
  11. helpdir = bootdrive||"\os2\help"
  12.  
  13. 'copy wsfile.dll' libdir
  14. 'copy wsfile.sym' libdir
  15. 'copy wsfile.hlp' helpdir
  16. 'copy wsfolder.dll' libdir
  17. 'copy wsfolder.sym' libdir
  18. 'copy wsfolder.hlp' helpdir
  19.  
  20. if SysCreateObject("WPFolder", "Example", "<WP_DESKTOP>",,
  21.                                 "OBJECTID=<EXAMPLE>") then
  22.    say 'Example Folder successfully installed.'
  23. else
  24.    say 'Error, Example Folder not installed properly.'
  25.  
  26.  
  27. if SysCreateObject("WSFILE","Workplace Shell File Example","<EXAMPLE>",,
  28.                             "SOUND=YES;OBJECTID=<WSFILE>") then
  29.    say 'Workplace Shell File Example successfully installed.'
  30. else
  31.    say 'Error, Workplace Shell File Example not installed properly.'
  32.  
  33.  
  34. if SysCreateObject("WSFOLDER","Workplace Shell Folder Example","<EXAMPLE>",,
  35.                               "OBJECTID=<WSFOLDER>") then
  36.    say 'Workplace Shell Folder Example successfully installed.'
  37. else
  38.    say 'Error, Workplace Shell Folder Example not installed properly.'
  39.  
  40.  
  41.  
  42.  
  43.