home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / rexx / loaddir.ro < prev    next >
Text File  |  1995-05-12  |  451b  |  30 lines
  1. /* 
  2.  
  3.    $VER: LoadDir.RO 0.2
  4.  
  5.    Author:
  6.     Oliver Rummeyer (oliver.rummeyer@student.uni-ulm.de)
  7.  
  8.    Function:
  9.     Loads the specified directory in the active listview.
  10.  
  11.    Requires:
  12.     RO 0.90 or newer
  13.  
  14.    Example:
  15.     Rx >NIL: REXX:LoadDir.RO System:Devs/DOSDrivers RO.1
  16.  
  17. */
  18.  
  19. PARSE ARG Directory PortName
  20.  
  21. IF PortName="" THEN
  22.  PortName='RO.1'
  23. ELSE
  24.  PortName=STRIP(PortName)
  25.  
  26. ADDRESS VALUE PortName
  27. OPTIONS RESULTS
  28.  
  29. 'Load Active "'||Directory||'"'
  30.