/* deletefiles */

OPTIONS results

frompath = getenv("dufromdir")
frompath = 'filelist/stripstar'(frompath)

rowno = 'filelist/findbottom'()

hail = "Delete any names you don't want deleted\"
hail = hail||"Do you wish to continue?"

x = request(200,200,hail,,"Yes","No",)
if x = "" then exit

TOP
Down

do i = 1 to rowno
   
   STATUS L 
   if result = "RESULT" then do
      line = "I got line "||result
      leave i
   end  
   parse var result name id .
   name = strip(name)
   id = strip(id)
   
   if id = "Dir" then do
      Down
      iterate
   end
   else do
      deletestring = "delete "frompath||name" quiet"
      address command  deletestring
   end
   DLine
   INSERT "-----file deleted-----------*N"
    

end
 
"filelist/getlist "frompath" from " 

MSG  frompath
exit