home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / diskutil.zip / opentree.cmd < prev    next >
OS/2 REXX Batch file  |  1999-12-03  |  180b  |  8 lines
  1. /* Open directory in wps */
  2.  
  3. call RxFuncAdd 'Sysopenobject', 'RexxUtil', 'Sysopenobject'
  4.  
  5. first = arg(1)
  6. curdir = directory(arg(1))
  7. rc=sysopenobject(curdir,icon,false)
  8. exit