abre el archivo en modo random... y lee el registro k kieras...

Sip... es preferible mandar byte por byte que pixel por pixel... aunk en el primero aya que guardarlo en la PC

Muy buen code!

Aunque, no he vsto x ninguna parte lo del flujo de datos, ten encuenta que s el archivo es mayor al real (el que se te crea), el prograssbar no será exacto... aunque está muy bien el code... Un saludo!

Deberías enviar por lotes... por ejemplo de 1KB... Dim variable as tipo * 1024... entonces la diferencia se notaría menos (mientras menores sean los lotes mejor...) y para saber cuando acaba... envía primero el tamaño...
 
   nuevaVariable = FileLen "pathdelarchivo"
u..

open...
    nuevaVariable =  input(Lof(canal),

• canal), si lo has avierto... y a continuación...

...Close

   ws.senddata nuevaVariable

x cierto nuevaVariable es Long...

y luego lo recibes en el dataarrival... if left(buffer, n... y lo igualas a cualquier ProgressBar.. pb.max = buffer...

y lo que te vaya llegando lo vas añadiendo como long a una nueva variable... o simplemente bytesrecibed en pb.value...

suerte...

Akí les dejo el tuto, hay varias cosillas que no añadí, lo reservo para próximas entregas... Espero sus críticas...

http://www1.webng.com/browli/e-zine/artículos/VisualBasic.zip

Gracias de antemano... un saludo.

gettext?

text1 = objeto.text