home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / filelist / refresh.txed < prev    next >
Encoding:
Text File  |  1996-02-15  |  426 b   |  22 lines
  1. /* refresh */
  2. arg duwindow
  3.  
  4. if duwindow = "FROM" then do
  5.       frompath = getenv("dufromdir")
  6.       frompath = 'filelist/stripstar'(frompath)
  7.       "filelist/getlist" frompath " FROM"
  8.       MSG frompath
  9. end
  10.  
  11. else do
  12.       topath = getenv("dutodir")
  13.       topath = 'filelist/stripstar'(topath)
  14.  
  15.       TOPort = getenv("DUTOPort")
  16.       interpret address '"'TOPort'"'
  17.  
  18.       "filelist/getlist" topath " TO"
  19.       MSG topath
  20. end
  21.  
  22.