Como enviar archivo por internet

[~~]

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 
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  )
Mira aki esta el problema:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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  si me podeis ayudar os lo agradeceria muxo

1S4ludo 

[WarGhost]

perdona se me a olvidado limpiar la variable y claro se van acumulando y el if falla .

mete esto:

Código [Seleccionar] Expandir

DataFile = ""

debajo debajo de esto:

Código [Seleccionar] Expandir

Close #1

Sorry 

[~~]

Hola!!

Ahora mismo venia a contarte q porfin habia encontrado el problema xDD pero veo q lo has encontrado tu antes jajaja

Sorry

De sorry nada, todos nos ekivocamos xDD y me has ayudado muxo 
De nuevo gracias WarGhost, ahora modifico esa funcion, acabo la transferencia de archivos y ya dentro de poco publico (espero q os guste  )

1S4ludo