home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / omnifile.zip / MAKEICON.CMD < prev    next >
OS/2 REXX Batch file  |  1998-02-04  |  744b  |  18 lines
  1. /* REXX PROGRAM */
  2. /* This program creates an icon which can be used to run Omnifile */
  3. SAY "This program creates an icon which can be used to run Omnifile."
  4. SAY ""
  5. PARSE SOURCE os processor cmd
  6. srcdrive = FILESPEC("drive",cmd)
  7. srcpath = FILESPEC("path",cmd)
  8. src = srcdrive||srcpath
  9. destpath = src
  10.  
  11. /* Create the Omnifile Icon. */
  12. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  13. if SysCreateObject('WPProgram', 'OmniFile', '<WP_DESKTOP>', 'EXENAME='destpath'\Omnifile.exe;STARTUPDIR='destpath, 'replace') == 0 then SAY 'Unable to create the OmniFile icon.  You should add it manually.'
  14.  
  15. SAY "DONE CREATING THE OMNIFILE ICON."
  16. SAY "To use the program double click on the 'OmniFile' icon on your desktop."
  17. SAY ""
  18.