Copia um arquivo na máquina local para o servidor FTP.

Sintaxe

FTPUPLOAD( cArqOrig, cArqDest ) -> lógico

Descrição

A função FTPUpload() copia um arquivo na máquina local para o diretório corrente no servidor FTP. O arquivo a ser copiado deve estar abaixo do RootPath do Protheus. Se a operação for realizada com sucesso a função retornará verdadeiro (.T.).

Exemplo

Local cServidor

cServidor := ‘ftp.caminhodoserivor.com.br’

FTPDisconnect()

If !FTPConnect( cServidor )

APMsgInfo( ‘Falha na conexão!’ )

EndIf

If FTPDirChange(‘diretorio’)

If !FTPUpload( ‘DIRETORIOARQ00001.ARQ’, ‘ARQ00001.ARQ’ )

APMsgInfo( ‘Problemas ao copiar arquivo!’ )

EndIf

EndIf