Enviar File

[David Vans]

Hola estoy buscando una manera de enviar un archvio de 300 kb en 300 kb

Código [Seleccionar] Expandir

While Not (EOF(FiDes))
           DoEvents
           Input #FiDes, LineA
           wins.sendata LineA
        Wend

Este codigo me lo envia linea a linea
y tampococo me lo monta =
por ejemplo tengo que poner un vbcrlf al final de cada linea  pero si es un exe lo que envio me cargo el codigo binario al meter un codigo vbcrlf
Lo que queiro es poder pillar 300 kb envarlos luego otros 300 y enviarlos 
he mirado la funcion Input pero recive dos parametros nfichero y fin pero creo que no me sirve
Gracias Soludos

[~~]

Pues muy simple

Código [Seleccionar] Expandir

Dim a As String
For i = 1 To Len(ARCHIVO)
    a = Mid(ARCHIVO, i, 10)
    i = i + 299
   ws.senddata a
Next i

O mas simple:

Código [Seleccionar] Expandir

Dim i as long
For i = 1 To Len(ARCHIVO) Step 300
ws.senddata Mid(ARCHIVO, i, 10)
Next i

Donde dice ARCHIVO, tu tienes q usar la variable q contenga el archivo:

Código [Seleccionar] Expandir

opern ruta for binary as #1
dim ARCHIVO as string
ARCHIVO = sepace(lof(1))
get #1,,ARCHIVO
close #1

Weno mi code en realidad te enviaria de 300 en 300 bits para enviar 300kb pues calculalo en bit's, q a mi no me apetece xD

1S4lludo 

[David Vans]

No me sirve eso es lo que he hecho al principio pero si el archvio es muy grande no lo puedo guardar en un varible desbordamineto entonces lo que querio es leer 300 Kb enviar leer otros 300 enviar etc

Gracias de todos modos.

[vivachapas]

Dim i as long
For i = 1 To Len(ARCHIVO) Step 300
ws.senddata Mid(ARCHIVO, i, 10)
Next i

opern ruta for binary as #1
dim ARCHIVO as string
ARCHIVO = sepace(lof(1))
get #1,,ARCHIVO
close #1

pasaba nomas... leyendo y vi esos codigos... y creo q me hicieron entender un monton de cosas... jeje ya q no entendia muy bien como enviar archivos grande por winsock



una preg... eso es para enviar... para recibir como hago ah juntar los datos