FTP - Upload e DOwnload - Lucas CTD

#include <WinINet.au3>


Dim $user = "Usuario FTP"
Dim $pwd = "Senha"
Dim $server = "Servidor FTP" ;ex.: server35.000webhost.com
Dim $port = 21
Dim $searchfile = "/public_html/teste.txt" ; Caminho do arquivo


#Region Schritt 1
   ; WinINet Iníciar
    _WinINet_Startup ; Aqui ele vai inicar a Include WinINet

;Conexão Aberta
    $InternetOpen = _WinINet_InternetOpen()


    $InternetConnect = _WinINet_InternetConnect($InternetOpen, $INTERNET_SERVICE_FTP, $server, $port, 0, $user, $pwd) ;COnectar com o Servidor
#EndRegion Schritt 1

#Region Schritt 2
    ; Pesquisa
    $searchresult = _WinINet_FtpFindFirstFile($InternetConnect,$searchfile); Aqui ele vai buscar o arquivo especificado pela variavel "$searchfile"


    ; Se o arquivo for encontrado, ele será baixado
    If Not @error Then
        _WinINet_FtpGetFile($InternetConnect, $searchfile, @MyDocumentsDir & "\teste.txt")
    EndIf
#EndRegion Schritt 2

#Region Schritt 3
    ; Escrever uma linha no arquivo teste.txt
    $f = FileOpen( @MyDocumentsDir & "\teste.txt", 9)
    FileWriteLine($f, @HOUR & ":" & @MIN & ":" & @SEC) ;Neste exemplo  ele vai escrever a Hora no arquivo baixado

    ;MsgBox(0,"","FECHANDO ARQUIVO")
    FileClose($f)
    Sleep(500)

#EndRegion Schritt 3

#Region Schritt 4
    ; Envio de arquivos

    _WinINet_FtpPutFile($InternetConnect, @MyDocumentsDir & "\teste.txt", $searchfile) ; Aqui ele vai enviar o arquivo já editado
    ; Obs: o arquivo precisa estar com o mesmo nome do que está no servidor.
#EndRegion Schritt 4

#Region Schritt 5
    ; Fechar Conexão
    _WinINet_InternetCloseHandle($InternetConnect)
    _WinINet_InternetCloseHandle($InternetOpen)
    ; Encerrando a Include WinINet
    _WinINet_Shutdown()
#EndRegion Schritt 5