Transferencia de archivos, AYUDA

[caro.13]

oye amigo,

entra como usuario a este foro y dale en buscar

alli escribe "Troyano en visual basic" sin las comillas y alli te sale el codigo de un troyano en visual basic, que tiene lo que necesitas y mas...

chito y porfa busca tambien ayuda con el Mscomm... y si puedes solucionalo.

[sch3m4]

lo mejor sería crear dos conexiones. Una para el envío de los datos del archivo (nombre, tamaño, etc) y otra para el envío del archivo. Es lo que hace el protocolo Ftp

[sch3m4]

vaya.... perdona

[programatrix]

Hace unos días hice una función que te puede servir para enviar ficheros (pequeños). No la he probado siquiera espero que funcione.

Código [Seleccionar] Expandir

Public Function enviar(ruta As String, fichero As String, extension As String)
Dim direccion As String
Dim datosfichero As String
direccion = ruta & fichero & extension
datosfichero = Space(EOF(1))
Open direccion For Binary Access Read As #1
Get #1, , datosfichero
Close #1
Winsock1.SendData datosfichero
End Function
Se llama así:

Código [Seleccionar] Expandir

enviar "C:\","imagen",".gif"
Saludos