Client FTP con VB6

[stefano.imperi]

Sto cercando di creare un client FTP con VB6 per trasferire un file su un dominio WEB. Il client funziona e non mi da errore ma il file arriva vuoto sul dominio , cioè arriva un file con il nome di quello che sto spedendo ma occupa 0 kb. Si tratta di un file txt che una volta aperto è vuoto.
Sulle proprietà del controllo Inet di VB6 ho messo
- Protocol: IcFTP
- RemotePort: 21 (ed ho provato anche con 20 perchè su qualche sito ho trovato 20)

Il dominio è di Aruba. I permessi "da pubblico" sulla cartella nello spazio WEB sono RW quindi non dovrebbe essere un problema di permessi. Vi metto qui sotto la procedura ovviamente omettendo i dati di login, ma come detto prima non danno errore, la connessione funziona.

With Inet1
.URL = "ftp://ftp.tivoliforma.it"
.UserName = "xxxxxxxxxxx@aruba.it"
.Password = "xxxxxxxxxxxx"
.Execute , "PUT C:\elenco.txt /tivoliforma.it/elenco.txt"
End With

[oregon]

Probabilmente il tuo programma si chiude prima che il trasferimento sia stato concluso.
L'execute della PUT non è immediata .... devi attendere ... prova ad inserire l'attesa

With Inet1
 .URL = "ftp://ftp.tivoliforma.it"
 .UserName = "xxxxxxxxxxx@aruba.it"
 .Password = "xxxxxxxxxxxx"
 .Execute , "PUT C:\elenco.txt    /tivoliforma.it/elenco.txt"
 Do Until Inet1.StillExecuting = False
   DoEvents
 Loop
End With