Servidor:
Código:
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:
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