/* copyall */
OPTIONS results

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

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

rowno = 'filelist/findbottom'()

hail = "This copies all files and subdirectories \"
hail = hail||"Delete any names you don't want duplicated\"
hail = hail||"Do you wish to continue?"

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

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 
        checkname = topath||name
        if ~exists(checkname) then address command makedir checkname 
        copystring = "copy "frompath||name" to "checkname" all"
   end
   else do
      copystring = "copy "frompath||name" to "topath" all quiet"
   end
      address command  copystring
   Down
    

end
 
TOPort = getenv("DUTOPort")
TOPort = '"'TOPort'"'

refreshstring = "filelist/getlist "||topath||' to'
refreshstring = '"'refreshstring'"'
interpret address TOPort refreshstring

MSG frompath
exit