Ftp Upload + Progress Bar

[Flop 0]

Hi everyone, sorry for my language, i'm french,

I use ftp fonction, it's work very fine, but i would like a progress bar when i upload a file, I can't find any script that is. Thanks

This is my code

Func UploadUS($where)

    ConsoleWrite($fileup & " - " & $where & @CR)
    GuiCtrlSetState($send, $GUI_SHOW)
   
    $dllhandle = DllOpen('wininet.dll'); Opens the DLL
   
    $Open = _FTPOpen('logs', 0); Starts up FTP services

    $Conn = _FTPConnect($Open, $server, $username, $pass, 21);,1, 0x08000000,0)
   
    if @error then
        msgbox(0,"Erreur","Erreur de connexion FTP")
    EndIf

    $Ftpp = _FtpPutFile($Conn, $fileup, '/web/US/' & $where); Puts notepad into /somedir/ named as example.exe on your server
   
   
    If $Ftpp = 0 Then
        MsgBox(0, "Erreur", "Echec de l'envoi")
    Endif

    GuiCtrlSetState($send, $GUI_HIDE)
    MsgBox(0, "Rapport d'envoi", "Fichier envoyé avec succès !")
   
EndFunc

[ProgAndy 67]

You have to use InternetWriteFile I made an UDF out of it here: http://www.autoit.de/index.php?page=Thread&postID=48393

[Flop 0]

Thanks for your answer ! I will try your UFD this night.

[Flop 0]

thanks you very mutch the code is perfect !!