Mensaje enviado por "Jordi Trabal Esquerda" <jtrabal@sat.es>

Yo tengo esto y me funciona :

Do
    DoEvents
Loop Until frm_FTP.Inet1.StillExecuting = False

frm_FTP.Inet1.Execute frm_FTP.Inet1.URL, "CLOSE"
frm_FTP.Inet1.Execute frm_FTP.Inet1.URL, "QUIT"

frm_FTP.Inet1.Cancel ' Por si finaliza el FTP con un error (no ha podido
hacer el get del fichero)

y luego tambien tengo

Private Sub Inet1_StateChanged(ByVal State As Integer)

Select Case State
    Case icResponseCompleted ' 12
        Inet1.Execute Inet1.URL, "CLOSE"
        Inet1.Execute Inet1.URL, "QUIT"
    Case icError
        Inet1.Execute Inet1.URL, "CLOSE"
        Inet1.Execute Inet1.URL, "QUIT"
    Case Else
    End Select

End Sub


Espero haberte ayudado
Un saludo
Jordi

-----Mensaje original-----
De: Amparo Mariņo <amparomarino@yahoo.com>
Para: visualbasic-esp@egroups.com <visualbasic-esp@egroups.com>
Fecha: domingo 26 de marzo de 2000 4:24
Asunto: (VB-ESP) Problemas con el control Internet Transfer!!!!


>Un saludo muy especial para todos,quisiera saber si
>alguien me puede ayudar!!!
>
>Tengo un control Internet Transfer y cuando utilizo el
>metodo "execute" para ejecutar comandos (como ascii,
>get, close) este realiza el primer "execute" pero los
>otros ya no los ejecuta y despliega el error 35764:
>"todavia se esta ejecutando la ultima peticion".
>
>Para esto, gracias a un documento que me enviaron, le
>coloque el siguiente codigo:
>Do
>DoEvents
>Loop Until Not Inet1.StillExecuting
>
>Pero ahora se queda en este ciclo infinitamente!!! y
>por lo tanto no ejecuta la siguiente instruccion!!!!
>
>Que codigo podria colocar para que realice varios
>"execute"
>
>Si alguien puede ayudarme se lo agradeceria
>muchisimo!!!
>
>GRACIAS
>