Classe TFtpClient

 #include "TOTVS.CH"
 User Function exampleFTP()
   Local nRet
   Local nI
   Local sRet
   Private oFTPHandle
   
   oFTPHandle := tFtpClient():New()
   nRet := oFTPHandle:FTPConnect("172.16.84.70")
   sRet := oFTPHandle:GetLastResponse()
   Conout( sRet )
   
   If (nRet != 0)
     Conout( "Falha ao conectar" )
     Return .F.
   EndIf
   
   oFTPHandle:GetCurDir(sRet)
   Conout(sRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   oFTPHandle:GetHelp("")
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:GetMLCount()
   varinfo("GetMultiLineRespLineCount ret",nRet)
   
   for nI :=0 to nRet
     sRet := oFTPHandle:GetMLLine(nI)
     Conout(sRet)
   next
   
   nRet := oFTPHandle:MkDir("remote_folder")
   varinfo("Mkdir ret",nRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:Directory("*")
   varinfo("Directory ret",nRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:ChDir("remote_folder")
   varinfo("Chdir ret",nRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   oFTPHandle:GetCurDir(sRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:SendFile("arquivo.txt", "arquivo_ftp.txt")
   varinfo("SendFile ret",nRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:RenameFile("arquivo_ftp.txt", "arquivo2.txt")
   varinfo("RenameFile ret",nRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:DeleteFile("arquivo2.txt")
   varinfo("DeleteFile ret",nRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:CdUp()
   varinfo("CdUp ret",nRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   oFTPHandle:GetCurDir(sRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:ReceiveFile("image001.jpg", "image001_rec.jpg")
   varinfo("Receive ret",nRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:GetType()
   Conout("Transfer type = " +str(nRet))
   
   nRet := oFTPHandle:SetType(0)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:GetType()
   Conout("Transfer type = " +str(nRet))
   
   oFTPHandle:NoOp()
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   nRet := oFTPHandle:Quote("PASV")
   varinfo("PASV ret",nRet)
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
   
   oFTPHandle:Close()
   sRet := oFTPHandle:GetLastResponse()
   Conout(sRet)
 Return