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:
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:
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
Prueba con esto:
If Separador(0) = "Archivos" Then
RUTA = App.Path & "/server.rar"
Open RUTA For Binary Acess Write As #1
Put #1, Separador(1)
Close #1
End If