/* deletefiles */

OPTIONS failat 5
OPTIONS results

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

rowno = 'filelist/findbottom'()

hail = "This deletes all files and subdirectories \"
hail = 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)
      deletestring = "delete "frompath||name" all quiet"
      address command  deletestring
      DLine
   INSERT "-----file deleted-----------*N"
    

end
 
"filelist/getlist "frompath" from " 

MSG  frompath
exit