Como enviar archivo por internet página 2

Hola de nuevo:

E estado provando el codigo q me as pasado WarGhost y funciona perfecto, pero lo raro es q solo funciona la primera vez q ejecutas el programa :huh:

Despues de provar y provar poniendo MsgBox y andar a vueltas con el debugger $:-\$ e haberiguado donde esta el fallo (aunke bo comprendo por q falla :-X

)
Mira aki esta el problema:

Código:

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data

If Envio = True Then
DataFile = DataFile & data
If Len(DataFile) = LenFile Then
Open "C:\foto1.jpg" For Binary As #1
Put #1, , DataFile
Close #1
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
End If
End If

If Left(data, 4) = "Tam:" Then
LenFile = Mid(data, 5)
Envio = True
ws.SendData "SendFile"
End If
End Sub

La primera vez q recibimos un fichero (en este caso una foto) nos manda el archivo y el tamaño perfectamente, pero cuando quiero recibir de nuevo esa misma foto pone la variable en true y todo perfectamente, pero antes de eso me a mandado un tamaño de archivo superior al q es realmente, y aunke ya alla recibido tooda la foto, la variable no se pone en false, ya q la linea:

Código:

If Len(DataFile) = LenFile Then

no es cierta, y los datos q llegan los sigue acumulando para despues meterlos en la imagen...

Lo mas raro es q si lo haces la primera vez funciona perfectamente, pero con la segunda envia un tamño mayor... q raro no???

Creo q el problema se debe a eso :huh:

si me podeis ayudar os lo agradeceria muxo

1S4ludo