(vb)leer Una Cadena De Bytes

[averbell]

 Como puedo leer una cadena de bytes seleccionada por mi? Grupos de 8 bytes o varios, se que se hace con un array de bytes, pero ni idea.
actualmente leo byte por byte.

Dim buffer as byte

open file for binary as #libre
do while not eof(libre)
get #libre, ,buffer
loop
  --------------------
  MA SOFTWARE
  --------------------
MA FACTU & MAHTTPSERVER

--------------------------------
SE BUSCAN BETATESTERS
---------------------------------
beltran_a@terra.es

[[EX3]]

 No se si te he entendido bien pero weno:

Código [Seleccionar] Expand

Dim buffer() as byte 'Array dinamico

open file for binary as #libre
do while not eof(libre)
get #libre, ,buffer
loop
El array dinamico Buffer tomara las dimensiones del archivo, si el archivo contiene 48 bytes el array pasara a tener 48 elementos.

Salu2...

[averbell]

 sige siendo lento, al final utilize una api de windows que abre ficheros al instante.

[[EX3]]

 Lento?  :blink: Si te lo hace al instante y de una pasada:

Código [Seleccionar] Expand

Dim buffer() as byte 'Array dinamico

open file for binary as #libre
get #libre, ,buffer
A lo mejor te lie por ke se me olvido kitar el bucle innecesario del While, pero esto es tan rapido y mucho mas sencillo ke la funcion ke estas usando.

Salu2...