LiveCode Forums.

Code: Select all

function SendToWeb userName userPassword PathFrom PathDestination --this is called from a loop that mymics a local folder with a folder on the web host
   set the defaultfolder to PathFrom
   put the files into ListaFiles --this list all the files on the local folder
   set the itemdelimiter to "."
   repeat for each line TheFile in ListaFiles
      if last item of TheFile = "html" or last item of TheFile = "png" or last item of TheFile = "css" or last item of TheFile = "js" then --just the valid files (no OSX stuff)
         if the visible of stack "attesa" is false then --stack "attesa" keep the user informed on the transfer
            return empty
         end if
         if last item of TheFile = "html" then --I tough I should distinguish...
            put "file:"  into Prefisso
         else
            put "binfile:"  into Prefisso
         end if
         put Prefisso & PathFrom & "/" & TheFile into PathFromWhere
         libURLSetStatusCallback "myProgress",the long ID of scrollbar "ScrollbarTC" of stack "attesa" 
         put "ftp://" & URLEncode(userName) & ":" & URLEncode(userPassword) & "@" & PathDestination  & "/" & TheFile   into PathDestinationWhere
         put url PathFromWhere into url PathDestinationWhere
         put the result into errore
         if errore is not empty then
            return errore
         end if
      end if
   end repeat
end SendToWeb