home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / rxarplib.lha / rexx / filelist / deletefiles.txed < prev    next >
Encoding:
Text File  |  1988-07-13  |  795 b   |  49 lines
  1. /* deletefiles */
  2.  
  3. OPTIONS results
  4.  
  5. frompath = getenv("dufromdir")
  6. frompath = 'filelist/stripstar'(frompath)
  7.  
  8. rowno = 'filelist/findbottom'()
  9.  
  10. hail = "Delete any names you don't want deleted\"
  11. hail = hail||"Do you wish to continue?"
  12.  
  13. x = request(200,200,hail,,"Yes","No",)
  14. if x = "" then exit
  15.  
  16. TOP
  17. Down
  18.  
  19. do i = 1 to rowno
  20.    
  21.    STATUS L 
  22.    if result = "RESULT" then do
  23.       line = "I got line "||result
  24.       leave i
  25.    end  
  26.    parse var result name id .
  27.    name = strip(name)
  28.    id = strip(id)
  29.    
  30.    if id = "Dir" then do
  31.       Down
  32.       iterate
  33.    end
  34.    else do
  35.       deletestring = "delete "frompath||name" quiet"
  36.       address command  deletestring
  37.    end
  38.    DLine
  39.    INSERT "-----file deleted-----------*N"
  40.     
  41.  
  42. end
  43.  
  44. "filelist/getlist "frompath" from " 
  45.  
  46. MSG  frompath
  47. exit      
  48.  
  49.