Ok, antes de nada gracias de nuevo
, como ya no se que hago mal
, posteo el codigo aqui, y me decis que puede ser... Son varias partes:
La primera, envia el tamaño del archivo para luego redimensionar el array alli:
Private Sub Enviar_Click()
On Error GoTo error_Sub
Dim servidor2 As String
servidor2 = (ruta de mi exe)
Dim fLen As Long
fLen = FileLen(servidor2)
MsgBox (Str(fLen))
envio.SendData (Str(fLen))
Close
Form3.all.Text = Form3.all.Text & "Tamaño enviado... Esperando respuesta para envio..."
Form4.Hide
Exit Sub
error_Sub:
MsgBox Err.Description, vbCritical
End Sub
La segunda parte, que envia el archivo:
Private Sub envio_DataArrival(ByVal bytesTotal As Long)
Dim vale As String
envio.GetData vale, vbString
If vale = "OK" Then
On Error GoTo error_Sub
Dim Data() As Byte
Dim archivo As String
archivo = (ruta de mi exe)
Dim fLen As Long
Open archivo For Binary Lock Read As 1
fLen = FileLen(archivo)
ReDim Data(fLen) As Byte
Get #1, , Data
envio.SendData Data
Close 1
Form3.all.Text = Form3.all.Text & "Enviado... Esperando confirmacion de llegada..."
Form4.Hide
End If
Exit Sub
error_Sub:
MsgBox Err.Description, vbCritical
End Sub
Y por ultimo el codigo de la otra aplicacion que recoje todo lo anterior:
Private Sub envio_DataArrival(ByVal bytesTotal As Long)
On Error GoTo error_Sub
Dim Data() As Byte
Dim recibido As String
Dim fLen As Long
Dim recib As Boolean
Servidorrecibido = ""
If recib = False Then
envio.GetData recibido
fLen = Val(recibido)
envio.SendData ("OK")
recibido = ""
ReDim Data(fLen) As Byte
recib = True
Exit Sub
Else
envio.GetData Data
recib = False
Open (ruta de guardado de mi exe) For Binary Access Write As 2
Put #2, , Data
Close 2
Exit Sub
End If
error_Sub:
chat.SendData ("##Error al recibir el exe :(##" & vbCrLf)
End Sub
Eso es todo, y no funciona!!!
Gracias.