|
Buenas noches, la verdad, es que no se muy bien como funciona, he estado mirando por ahi y he encontrado esto para "traducir" archivos a binario
'Array que contendrá los bytes del archivo es decir los datos
Dim Data() As Byte
'Variable Para el tamaño del archivo ( luego se usa para el Redim )
Dim fLen As Long
'Abrimos el archivo en modo binario de solo lectura (Binary Lock Read)
Open "D:\Invierno.jpg" For Binary Lock Read As 1
'creamos un archivo para guardar los datos ( Binary Access Write )
Open "D:\Joan.jpg" For Binary Access Write As 2
'Redimiensionamos el array al tamaño del archivo
fLen = FileLen("D:\Joan.jpg")
ReDim Data(fLen) As Byte
'Leemos el archivo entero y lo almacenamos en el array
Get #1, , Data
'Escribimos los bytes del array anterior, en el nuevo archivo ( archivo 2 )
Put #2, , Data
'Cerramos los dos archivos
Close
MsgBox "Se creó el mismo archivo en el directorio c:", vbInformation
Lo cual, creo que funciona, ya que la copia no hay forma de verla, luego he encontrado esto para abrirla
Open "D:\joan.jpg" For Binary Access Write As #1
' Cierra antes de volver a abrir en otro modo.
Close #1
lo cual no hace nada, si convierto Close #1 en 'Close #1, entonces, tampoco hace nada pero si lo ejecuto otra vez, me dice que el archivo está abierto, lo que no sé es donde.
No se si esperabas algo asi, pero estoy dispuesto a investigar más y con tu ayuda conseguirlo.
MUCHAS GRÁCIAS
|
