>How can I upload files using a bottom of a form ?
>Thanks
>
>Moises

Using the class that Sergey said

sessaoFTP = createobject('ftp_service')

IF sessaoFTP.OpenInternet ('informe o nome do usuario','informe a senha','informe endereço IP','informe a porta') = .f. && estabelece a conexão FTP Função presente no programa FTP.prg
MESSAGEBOX('Não foi possível estabelecer a conexão FTP',48,'Atenção')
RETURN .F.
ENDIF

IF sessaoFTP.PutFtpFile(nmarquivopdfdestino,nmarquivopdforigem) = .F.
MESSAGEBOX('Não foi possível fazer FTP do arquivo '+nmarquivopdforigem,48,'Atenção')
sessaoFTP.CloseInternet()
EXIT
ENDIF