FTPDirChange

Muda o diretório no server FTP

Exemplo da Rotina:

+ Expandir Código (Duplo Clique para Selecionar tudo)
1	`FTPDirChange(cDiretorio)`

Exemplo 1- Realiza upload de arquivo:

+ Expandir Código (Duplo Clique para Selecionar tudo)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49	`//Bibliotecas` `#Include "Totvs.ch"` `Static Function fUpFile(cFileOrig)` `Local cServer :=` `"server.site.com.br"` `Local nPort := 21` `Local cUser :=` `"user"` `Local cPass :=` `"senha@123"` `Local lClose := .F.` `Local cFTPDest :=` `"/pasta_dentro_do_ftp/"` `Local cTemp := "\x_ftp_temp\"` `//Se tiver o arquivo e o destino` `If ! Empty(cFileOrig) .And. !Empty(cFTPDest)` `//Tenta estabelecer a conexão` `If FTPConnect(cServer, nPort, cUser, cPass)` `//Pega apenas o nome do arquivo com a extensão` `cNameFile := SubStr(cFileOrig, RAt("\", cFileOrig) + 1, Len(cFileOrig))` `//Se não existir a pasta temporária dentro da Protheus Data, cria ela` `If ! ExistDir(cTemp)` `MakeDir(cTemp)` `EndIf` `CpyT2S(cFileOrig, cTemp)` `If FTPDirChange(cFTPDest)` `If FTPUpload(cTemp + cNameFile, cFTPDest + cNameFile)` `MsgInfo("Arquivo copiado para o FTP com sucesso!",` `"Atenção")` `Else` `MsgStop("Falha ao copiar o arquivo para o FTP!",` `"Atenção")` `EndIf` `Else` `MsgStop("Não foi possível mudar o diretório de Upload!",` `"Atenção")` `EndIf` `//Fecha a conexão` `lClose := FTPDisconnect()` `If ! lClose` `MsgStop("Falha ao fechar a conexão!",` `"Atenção")` `EndIf` `Else` `MsgStop("Erro de conexão!",` `"Atenção")` `EndIf` `EndIf` `Return`

Observações:

Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
Se tiver sugestões de rotinas, pode entrar em contato;

Relacionado