salve ragazzi, ho letto migliaia di post su questo argomento nel foro e altrettanti in giro per il web ma non riesco a risolvere il problema;

devo creare un semplice programma che esegua un backup di una cartella hostata su un server FTP e poi magari elimini il suo contenuto, niente di piu.


Posto il codice che è molto semplice, ma il problema è che in run mi da errore di run-time 35761 time out della richiesta.

Potete aiutarmi a capire dove sbaglio? grazie anticipatamente.

M.





codice:
Private Sub Command1_Click() 
Inet1.Execute , "GET Ftp.log C:\Desktop\Ftp.log " 
Do While Inet1.StillExecuting = True 
DoEvents 
Loop  
Inet1.Execute , "CLOSE" 

MsgBox "backup effettuato"

End Sub




Private Sub Inet1_StateChanged(ByVal State As Integer)
 Dim vtData As Variant ' Data variable. 
Select Case State
 ' ... Altri valori... 
Case icError 
' 11 'Errore...
 vtData = Inet1.ResponseCode & ":" & vbCrLf & Inet1.ResponseInfo 
MsgBox "Errore: " & vtData, vbOKOnly, "FTP - ERRORE" 
Case icResponseCompleted ' 12
 vtData = Inet1.GetChunk(1024, icString) 
'Operazione Completata... 
 End Select     
End Sub