Cansado del Internet Transfer Control

[julytoccr]

Cansado de averigura reenvio el codigo de lo que no me anda, hay cosas comentadas y otras no porque ya me estoy volviendo loco
se me queda a veces lupeando en el while indicado y no sale , estando todo el enlace bien y sin problemas,
mi pregunta es , si uso el metodo execute, con ftp , debo usar getchunk? por lo que lei no creo que haga falta
pero algo se esta colgando aca.
me faltaria agregar algo en el ftpserver_StateChanged()
Esta con VB 6.0



Public Sub chupar() 'Conecta por FTP

If yaentro = False And ftpserver.StillExecuting = False Then

yaentro = True

Forzar.Enabled = False

Recarga.Enabled = False

Label1.Caption = "Verificando que puede tomar la primera lista de cables...principio de rutina"
Label1.Refresh

'tomandolistacable = True

'On Error Resume Next


'ftpserver.Execute , "GET listacable.txt " + App.Path + "\listacable.txt"

'While ftpserver.StillExecuting = True
' DoEvents
'Wend

'Se conecta al server y chupas los cables actuales

If FileExist(App.Path + "\listacable.txt") Then
Kill (App.Path + "\listacable.txt")
End If
'Primero toma el listado de cables del servidor
On Error Resume Next
ftpserver.Execute , "GET listacable.txt " + App.Path + "\listacable.txt"

'Que rompe bolas.....
'WaitSeconds (tiempo_de_espera + 1)
'que se le va a hacer


' aca se me cuelga !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!
' aca se me cuelga !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!
' aca se me cuelga !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!
While ftpserver.StillExecuting = True
DoEvents
Wend



tomandolistacable = False

If FileExist(App.Path + "\listacable.txt") Then

'On Error Resume Next

Open App.Path + "\listacable.txt" For Input As #1

auxiliar = 0
While Not EOF(1) 'guardo el nombre cable a tomar
auxiliar = auxiliar + 1
Input #1, lista_cables_a_chupa(auxiliar)
Wend
barra.Visible = True

barra.Max = auxiliar + 1

'y empiezo a chupar los cables
For x = 1 To auxiliar

'Aca proceso lo que voy chupando uno por uno

Next x
On Error Resume Next
ftpserver.Execute , "CLOSE"
ftpserver.Execute , "QUIT"
ftpserver.Cancel

While ftpserver.StillExecuting = True
DoEvents
Wend
On Error Resume Next
Close #1

Label1.Caption = ""


End If
barra.Visible = False

Forzar.Enabled = True

Recarga.Enabled = True

yaentro = False

chupa_o_no = 0

End If

End Sub