home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / newzips.zip / NEWINST.CMD next >
OS/2 REXX Batch file  |  1993-06-21  |  612b  |  20 lines
  1. /* newinst  */
  2. /* trace ?r */
  3. say ' '
  4. say 'Enter the fully qualified path for the download directory'
  5. say ' '
  6. pull  downdirect
  7. say 'Enter the fully qualified path for the target directory'
  8. say ' '
  9. pull  destdirect
  10. say 'Enter the title for this program reference object, default will be newzips'
  11. parse pull title
  12. if title = '' then title = 'NewZips'
  13. curdirect = directory()
  14.  
  15. classname='WPProgram'
  16. location= '<WP_DESKTOP>'
  17. setup='EXENAME='curdirect||'\NEWZIPS.CMD;PROGTYPE=WINDOWABLEVIO;PARAMETERS='downdirect' 'destdirect';'  
  18. result = SysCreateObject(classname, title, location, setup, 'R')
  19.  
  20.