que se supone que el que escucha es el servidor y el que envia los datos el cliente...
no entiendo que haces aqui...
¿de donde sale datos2?
¿la variable directorio para que es si no la envias?
¿para que preguntas si envias el path?
al recibir no estas recibiendo la dirección del archivo sino del directorio...
amén de que aparecen variables que no estan dimensionadas...
pon un option explicit que seguramente tienes alguna más, que tienes mal escrita...
los comentarios se agradecerían...
nose si te he servido de ayuda pero es que sin tabulaciones me mareo xd... si pegas todo el código sería de agradecer
no entiendo que haces aqui...
Código [Seleccionar]
Put #1, 1, datos2
¿de donde sale datos2?
¿la variable directorio para que es si no la envias?
¿para que preguntas si envias el path?
Código [Seleccionar]
directorio = InputBox("elige la ruta donde se" & vbCrLf & "guardara el archivo en la victima:" & vbCrLf & "Añade '\' al final!", "Ruta donde se guardara", Path)
directorio = directorio & nombre
ws2(socket).SendData "archivo" & "|" & filesize & "|" & [b]Path[/b] & "|" & filedata
al recibir no estas recibiendo la dirección del archivo sino del directorio...
Código [Seleccionar]
Open directorio For Binary As #1
amén de que aparecen variables que no estan dimensionadas...
pon un option explicit que seguramente tienes alguna más, que tienes mal escrita...
los comentarios se agradecerían...
nose si te he servido de ayuda pero es que sin tabulaciones me mareo xd... si pegas todo el código sería de agradecer