HOLA A TODOS....EN POCKET PC PUEDO UTILIZAR ESTE CLASE.
Function Ftpconecta(conecta,cFtpsite,clog,cPass)
local swcontinua:=.t.
MsgRun("Conectando a: "+cftpsite)
oInternet := TInternet():New() oFTP := TFTP():New(cFtpSite,oInternet,clog,cPass)if Empty( oFTP:hFTP )
swcontinua:=.f.
AADD(errores,cftpsite)
error += 1
endif
return swcontinua