home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / aftp1.zip / makeICON.CMD < prev    next >
OS/2 REXX Batch file  |  1997-11-12  |  515b  |  19 lines
  1. /* REXX Script to install AutoFTP ICON */
  2.  
  3. call RxFuncAdd 'SysCls', 'RexxUtil', 'SysCls'
  4. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  5.  
  6. currentDirectory = directory()
  7. programName = "\AutoFTP.EXE"
  8. programPath = insert( currentDirectory, programName )
  9. executable = insert( "EXENAME=", programPath )
  10.  
  11. SysCreateObject("WPProgram","AutoFTP","<WP_DESKTOP>",,
  12.                 executable, "REPLACE" )
  13.  
  14. call SysCls
  15.  
  16. say ""
  17. say " AutoFTP object successfully created on desktop..."
  18. say ""
  19.