/* copyfiles */
OPTIONS results
OPTIONS failat 5
frompath = getenv("dufromdir")
frompath = 'filelist/stripstar'(frompath)

topath = getenv("dutodir")
topath = 'filelist/stripstar'(topath)

rowno = 'filelist/findbottom'()

Jump 2 0

do i = 1 to rowno
   
   STATUS L 
   if result = "RESULT" then leave i  
   parse var result name id .
   name = strip(name)
   id = strip(id)
   
   if id = "Dir" then do
      Down
      iterate
   end
   else do
      movestring = "rename "frompath||name" to "topath||name
      address command  movestring
   end
   DLine
   INSERT "---file moved---------*N"
    

end

"filelist/refresh to"
call delay 120
"filelist/refresh from"

MSG frompath

exit