[VB6] Upload file tramite componenti FTP

[giustavalla]

Il seguente codice, tratto da
https://www.dreamincode.net/forums/t...-server---VB6/
ha sempre funzionato da anni e anni senza alcun problema
Adesso non più. Ecco lo spezzone di codice incriminato :

  hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0)
   hSession = InternetConnect(hINetSession, "xx.xx.xx.xx", "21", Username, Psw, 1, 0, 0)
    If FtpPutFile(hSession, Sorgente, "/o*****8/l****.it/" & Destinazione, 2, 0) = False Then

Con FileZilla sono in grado di accedere al server i cui parametri sono indicati nel codice.
Ho provveduto, ad ogni buon conto, a ri-registrare wininet.dll e msinet.ocx.
Nel server (anzi nei server perchè questo codice lo utilizzo per trasferire file txt in più di un server) non è intervenuta alcuna modifica.
Da cos'altro può dipendere il malfunzionamento ?
Grazie per l'attenzione

[alka]

ha sempre funzionato da anni e anni senza alcun problema
Adesso non più.

Cosa intendi? Cosa succede ora? Che errore viene dato?

[giustavalla]

Dopo la valorizzazione delle variabili hINetSession e hSession all'istruzione :
If FtpPutFile(hSession, Sorgente, "/o*****8/l****.it/" & Destinazione, 2, 0) = False Then
il programma si arresta e sono costretto a fare un CTRL+ALT+CANC per terminare tutto.
Da notare che questo metodo di fare l'upload di un file lo utilizzo in diversi miei programmi e fino a qualche tempo fa era tutto OK. Adesso tutti si bloccano in quel punto.
Inutile dire che, guardando nei vari server, il file che doveva essere uploadato non c'è.

[giustavalla]

Nessun suggerimento ?