home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SYS / Rexx / openfilerwindow.rexx < prev    next >
OS/2 REXX Batch file  |  1995-09-17  |  378b  |  21 lines
  1. /* Opens a window in Filer */
  2.  
  3. parse arg path ":" app
  4.  
  5. if path=="-" then do
  6.     if open(fh,":Index/infos/"||app||".path","r") then do
  7.         path=readch(fh,256)
  8.         path=left(path,length(path)-1)
  9.         call close(fh)
  10.     end
  11.     else do
  12.         address command
  13.         ":C/MetaTool :Index/bricks/error-internal TEXT"
  14.         exit 10
  15.     end
  16. end
  17.  
  18. address command "Run :Pearls/util/Directory/Filer/Filer :"||path
  19.  
  20. exit 0
  21.