RE: Prolema al conectarme por ftp con el control inet
Hola d nuevo muchas gracias por todo lo q me estas ayudando pero sigo igual t posteo el codigo tal como lo tengo pq ya no se q mas hacer y seguro q es una tonteria pero ... no veo el error:
Lo unico que tengo en el formulario es un boton q ejecuta cmdSEND y el control Inet1 con los valores minimos por defecto.
Private Sub cmdSEND_Click()
With Inet1
.AccessType = icUseDefault
.AccessType = icNamedProxy
.AccessType = icDirect
.Protocol = icFTP
.URL = "FTP://mundofly.com"
.RemotePort = 21
.UserName = "www.mundofly.com"
.Password = "pass"
.RequestTimeout = 120
Inet1.Execute Inet1.URL, "SEND C:sql.txt sql.txt"
.Execute , "CLOSE" Cierra la conexión.
End With
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Obtiene la respuesta del servidor con el método
GetChunk cuando State = 12.
Dim vtData As Variant Variable de datos.
Select Case State
... Otros casos no mostrados.
Case icError 11
En caso de error, devuelve ResponseCode
y ResponseInfo.
vtData = Inet1.ResponseCode & ":" & _
Inet1.ResponseInfo
Case icResponseCompleted 12
Dim vtData As Variant
Dim strData As String
Dim bDone As Boolean: bDone = False
Obtiene el primer bloque.
vtData = Inet1.GetChunk(1024, icString)
DoEvents
Do While Not bDone
strData = strData & vtData
Obtiene el siguiente bloque.
vtData = Inet1.GetChunk(1024, icString)
DoEvents
If Len(vtData) = 0 Then
bDone = True
End If
Loop
txtData.Text = strData
End Select
End Sub
Lo dicho muchas gracias por todo y perdona por esta pesadillaaaaaa
</TR>
RE: Prolema al conectarme por ftp con el control inet 
Mode Lineal
