home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / filelist / getlist.txed < prev    next >
Encoding:
Text File  |  1996-02-15  |  439 b   |  21 lines
  1. /* getlist.txed */
  2.  
  3. arg dirname duwindow
  4. OPTIONS results
  5.  
  6. if duwindow = "FROM" then do
  7.    address command "list >VD0:DUFROMTEMPLISTING sort nodates "dirname
  8.    LOAD "VD0:DUFROMTEMPLISTING"
  9.    'filelist/cleanlast'
  10.    x = setenv("dufromdir", dirname)
  11. end
  12. else do
  13.    address command "list >VD0:DUTOTEMPLISTING sort nodates "dirname
  14.    LOAD "VD0:DUTOTEMPLISTING"
  15.    'filelist/cleanlast'
  16.    x = setenv("dutodir", dirname)
  17. end
  18.  
  19. MSG dirname
  20. exit
  21.