[VB6]: Errore FTP: impossibile collegarsi all'host remoto

[Amok]

Salve, ho letto i diversi post sul forum su come fare un collegamento FTO con VB6 e trovato alcuni documenti in rete ma nonostante abbia fatto tutto...non funziona: mi dice sempre "impossibile collegarsi all'host remoto".
I comandi sono

Private Sub Command1_Click()
    Form1.Inet1.URL = "ftp://ftp.miosito.it"
    'User e passw vanno impostati dopo aver impostato l'url,
    'altrimenti I dati vengono persi.

    Inet1.UserName = "mio_username"

    Inet1.Password = "mia_password"

    Inet1.Execute "GET /prova.jpg c:\prova.jpg"

    Do Until Inet1.StillExecuting = False
    DoEvents
End Sub

Non riesco a capire perché, nonstante sia identico ai diversi tutorial che ho visto, mi dia sempre questo errore.

[alka]

Sei sicuro che il prefisso ftp:// sia necessario nella proprietà che contiene l'indirizzo del server a cui collegarsi?

In ogni caso, con qualsiasi altra applicazione riesci ad accedere correttamente al server?

[Amok]

Si si al sito riesco a collegarmi senza problemi. Solitamente uso filezilla o ws_ftp e con quelli non ho problemi ma provando quel codice mi da sempre quell'errore...
Quello che non capisco è la differenza tra Inet1.RemoteHost e Inet1.URL
Bph, provo a fare altri tentativi...

[alka]

Originariamente inviato da Amok
Quello che non capisco è la differenza tra Inet1.RemoteHost e Inet1.URL

Forse dovresti usare la prima e ignorare la seconda... :master:

[Amok]

Risolto...sono un cretino io. Sbagliavo a scrivere il nome della directory in cui risiedeva il file...scusate del disturbo per una scemenza come questa...

PS. Tramite prompt dei comandi sono riuscito a trasferire dei file dal server al pc ma ora però mi resta sempre il problema sulla mia applicazione che continua a darmi impossibile collegarmi etc etc
Continuo a fare delle prove. Se qualcuno ha idee sonoben accette

[Amok]

Risolto.
Ecco la soluzione

Inet1.Protocol = icFTP
    Inet1.URL = "ftp://ftp.miosito.it"
    Inet1.RemotePort = 21
    Inet1.UserName = "mio_username"
    Inet1.Password = "mia_password"
    
    Inet1.Execute Inet1.URL, "GET file_remoto file_locale"

    Do Until Inet1.StillExecuting = False
    DoEvents
    Loop