... FUNCTION EnvArqFtp(cArq) LOCAL oInternet,oFtp,nVezes:=0,lInter:=.F. oInternet := TInternet():New() oFTP := TFTP():New( "ip by server", oInternet,"usr","pass" ) MandaArq(CurDir()+"\"+cArq,"/public_html/sav/"+cArq,500,oFTP) RETURN NIL STATIC FUNCTION MandaArq(cArquivo,cRemote,nTam,oFtp) LOCAL n,hSource,cBuffer:=Space( ...