Alguien sabe usar el Microsoft Internet Transfer Control para VB 6.0??

[elmeallas]

En el MSDN te vienen ejemplos sobre el Internet Transfer Control. Te pego aquí un ejemplo sacado de la fuente citada:

Ejemplo del método Execute
Este ejemplo ilustra una serie de operaciones FTP comunes con el método Execute. En el ejemplo se supone que existen tres controles TextBox en el formulario. El primero, txtURL, contiene la dirección URL del servidor FTP. El segundo, txtRemotePath, contiene la información requerida por un comando determinado. El tercero, txtResponse, contiene la respuesta del servidor.

Private Sub cmdChangeDirectory_Click()
' Cambia al directorio txtRemotePath.
Inet1.Execute txtURL.Text, "CD " & _
txtRemotePath.Text
End Sub

Private Sub cmdDELETE_Click()
' Elimina el directorio indicado en txtRemotePath.
Inet1.Execute txtURL.Text, "DELETE " & _
txtRemotePath.Text
End Sub

Private Sub cmdDIR_Click()
Inet1.Execute txtURL.Text, "DIR BuscaEsto.txt"
End Sub

Private Sub cmdGET_Click()
Inet1.Execute txtURL.Text, _
"GET TomaEsto.txt C:\MisDocumentos\TengoEsto.txt"
End Sub

Private Sub cmdSEND_Click()
Inet1.Execute txtURL.Text, _
"SEND C:\MisDocumentos\Enviar.txt DocsEnviados\Enviado.txt"
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