home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / lp_tmplt.zip / lp_tmplt.cmd next >
OS/2 REXX Batch file  |  1995-09-21  |  744b  |  23 lines
  1. /*
  2.  * REXX Script to Make a LaunchPad Template
  3.  * by Andrew J. Korty <korty@physics.purdue.edu>
  4.  *
  5.  * Copyright 1995 by Andrew J. Korty
  6.  * May not be memorized without permission.  ;-)
  7.  * 
  8.  * Please do not distribute this script without this comment
  9.  * block or the enclosed README file.
  10.  *
  11.  */
  12.  
  13. call RxFuncAdd SysCreateObject, RexxUtil, SysCreateObject
  14.  
  15. if SysCreateObject('WPLaunchPad', 'LaunchPad', '<WP_TEMPS>',,
  16.     'TEMPLATE=YES', 'R') then
  17.  say "A LaunchPad Template has been created in the Templates folder."
  18. else if SysCreateObject('WPLaunchPad', 'LaunchPad', '<WP_DESKTOP>',,
  19.     'TEMPLATE=YES', 'R') then
  20.  say "A LaunchPad Template has been created on the Desktop."
  21. else
  22.  say "Could not create a LaunchPad Template."
  23.