VBA - Updating on Azure FTP

  • MOD NOTE: Threads merged into Hire Help forum
    Hello everybody,


    I tryed to follow the great John's code http://www.ozgrid.com/forum/showthread.php?t=178776
    I completed the missing const, and adapted my Ftp (one Azure) settings but nothing happens after running the code.

    Quote

    Const INTERNET_SERVICE_FTP = 1 'def de 6 argConst INTERNET_FLAG_RELOAD = &H80000000
    Const FTP_TRANSFER_TYPE_BINARY = 2
    Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000


    Here is the debuf mode, that goes from

    Quote

    "If ret > 0"

    to

    Quote

    "End If"

    , without compiling any line on this part The last line who seems executed is :"

    Quote

    ret = InternetConnect(hOpen, hostName, port, username, password, INTERNET_SERVICE_FTP, ftpMode, 0)

    , even

    Quote

    ret = FtpSetCurrentDirectory(hConn, remoteDirectory)

    looks failing.


    And there is my variables on the debug mode [ATTACH=CONFIG]70603[/ATTACH]


    May somebody helping my to fixe this code. Many Thanks