AYUDA URGENTE DE TFTP()

[prm_pedro]

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