[VB6] Connessione Inet per upload FTP

[Mike]

Salve,
sto utilizzando l'oggetto INET per uploadare sul mio ftp dei file! Il progetto che ho realizzato (molto semplice) non funziona perfettamente, infatti non riesco ad eliminare questo errore: "L'ultima richiesta è ancora in esecuzione"! Ho pensato di inserire un timer, ma non funziona a dovere..... Mi date un consiglio?

Private Function myFtp()
 URLACCESSO = "ftp://user:psw@ftp.miosito.com"
 Inet.Execute URLACCESSO
 Inet.Execute "", "CD htdocs"
 Timer1.Enabled = True
 Inet.Execute "", "PUT C:\file.txt file.txt"
End Function  

Private Sub Timer1_Timer()
    Timer1.Enabled = False
End Sub

[Mike]

:up:

[Morpheus1986]

Ti da quell'errore perchè bisognerebbe scrivere queste istruzioni:

 
  URLACCESSO = "ftp://user:psw@ftp.miosito.com"
  Inet.Execute URLACCESSO
  While Inet.StillExecuting: DoEvents: Wend

Quindi per ogni volta che fai un Execute devi mettere quell'istruzione while in modo che non da più errore.

[elfocaotico]

Scusate se mi intrometto.
Ese voglio scaricare un file invece (con il metodo get, ma come?)
Ciao.

[Morpheus1986]

per fare GET scriverai:

Inet.Execute "", "GET file.txt C:\file.txt"

[alka]

Originariamente inviato da elfocaotico
Scusate se mi intrometto.
Ese voglio scaricare un file invece (con il metodo get, ma come?)

Non portiamo in rilievo discussioni già concluse da tempo per modificarne l'argomento principale.

Ad ogni quesito, una nuova discussione.

Ciao!

[elfocaotico]

Ops,
hai ragione scusate

[andrew4]

Salve,
intanto vi ringrazio per i codici che avete scritto, però stavo cercando di riprenderli per usarli in una mia applicazione, e potete dirmi se ho sbagliato con queste modifiche?


Private Sub Command1_Click()

URLACCESSO = "ftp://usersw@ftp.miosito.com"
Inet.Execute URLACCESSO
While Inet.StillExecuting: DoEvents: Wend
Inet.Execute "", "CD htdocs"

Inet.Execute "", "PUT C:\file.txt file.txt"
End Sub

[oregon]

NOn dovresti accodarti a discussioni di due anni fa, anche se riguardano lo stesso argomento.

In ogni caso, le righe di attesa

While Inet.StillExecuting: DoEvents: Wend

vanno inserite alla fine di ogni Execute.

[alka]

Originariamente inviato da oregon
NOn dovresti accodarti a discussioni di due anni fa, anche se riguardano lo stesso argomento.

...soprattutto considerando che questo suggerimento è riportato anche nella stessa discussione risollevata, oltre al fatto che c'è già una discussione aperta sullo stesso argomento qui.

Il forum va usato, e non abusato.

Chiudo.