Visual Basic para Aplicaciones - Urgente!!!! convertir archivo a codigo binario

hola a todos!!

como puedo convertir cualquier archivo ya sea .jpg o .bmp etc a codigo binario, he leido algo creo que es con el get y put pero la verdad no le he entendido.
ojala y me puedan ayudar

gracias de antemano!!

No se si sea lo que buscas. Pero el Get sirve para tomar datos y el Put para ponerlos.

Ejemplo con Put:

Open "c:/e.txt" for binary as #1
Aqui abre el archivo e.txt para su edicion el numero del archivo es el 1

put #1, 1, "David"
Aqui pega en el archivo 1 (put#1) empezando del caracter 1 (,1,) la palabra "David"(sin comillas)

Close #1
Cerramos el Archivo

Dim Mivar as byte
Dim Mivar2 as string

Ejemplo con Get:

Open "c:/e.txt" for binary as #1
Aqui abre el archivo e.txt para su edicion el numero del archivo es el 1(lo mismo)

do
get #1, 1, Mivar
Mivar2=Mivar2+Mivar
while not eof(1)
Aqui toma del archivo 1 (get#1) hasta que no sea fin de archivo (do...while not eof(1)) Mivar que es un byte y todo se almacena en Mivar2

msgbox Mivar2
Ponemos un mensaje con lo que obtuvimos(Si se hace el ejemplo del put obtendremos David)

Close #1
Cerramos el archivo

Espero que te sirva, si no es eso mandame un mail(como es la primera vez que respondo no se si pongan mi mail) a [email protected]