Temas

[Servidor:]

Tengo el problema que cuando quiero enviar el archivo a partir del servidor hasta el cliente solo envía [¡Rar] Osea la primera linea y no se como arreglarlo,trate con miles de códigos pero todos me hacen lo mismo,me envian solo la primer linea y el archivo que me envia solo pesa 1 Kb cuando el archivo original pesa 176Kb

Servidor:

Código [Seleccionar] Expandir


If Peticion = "Actualizar" Then
Open RUTA.Text For Binary As #1
    s_ArchivoOrigen = Space(LOF(1))
    Get #1, , s_ArchivoOrigen
    Winsock2(Index).SendData "Archivos|" & s_ArchivoOrigen
Close #1


Cliente:

Código [Seleccionar] Expandir

If Separador(0) = "Archivos" Then
RUTA = App.Path & "/server.rar"
Open RUTA For Output As #1
    Print #1, Separador(1)
Close #1
End If


Agradecería mucho su ayuda,Saludos