Sección de códigos , trucos y ejemplos para visual basic

41 - Acceder en forma binaria a un archivo mediante el modo de acceso y escritura For Binary del visual basic

Contenido

Uso de Get y Put para leer y escribir un array de bytes en modo binario
Uso de Put, pero descargando el archivo desde internet
Relacionados

Uso de Get y Put para leer y escribir un array de bytes en modo binario

Este ejemplo lo que hace es leer en un Array dinámico de tipo Byte con Get, un fichero cualquiera, por ejemplo un ejecutable, un archivo de imagen etc.., y después lo graba con la instrucción Put en el disco generando exactamente el mismo archivo.

El modo de acceso debe ser en modo binario For Binary, tanto para leer como para escribir el nuevo fichero.

Al probar el ejemplo tal cual está acá, lo que se hace es leer el archivo de imagen abanicos.bmp que está ubicado en el directorio de windows ( "c:\windows\abanicos.bmp") , y luego genera ese mismo archivo en el directorio c:\ con el nombre nuevo_archivo.bmp

Código fuente en el formulario

Option Explicit Private Sub Form_Load() On Error GoTo error_Sub '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 "c:\windows\abanicos.bmp" For Binary Lock Read As 1 'creamos un archivo para guardar los datos ( Binary Access Write ) Open "c:\Nuevo archivo.bmp" For Binary Access Write As 2 'Redimiensionamos el array al tamaño del archivo fLen = FileLen("c:\windows\abanicos.bmp") 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 Exit Sub error_Sub: MsgBox Err.Description, vbCritical End Sub

Uso de Put, pero descargando el archivo desde internet

El ejemplo de este enlace, muestra como descargar un archivo utilizando el método AsynRead ( descarga asincrónica ). cuando termina de descargar el archivo, escribe el array de bytes en el disco utilizando la función Put. Al igual que el ejemplo anterior, para acceder al archivo y poder escribirlo en disco, utiliza el modo de acceso binario, es decir For Binary Access Write.

Descargar ejemplo

Captura del ejemplo

Recursos vb 6 - Enlaces relacionados

Recursos vb.net - relacionados

Ejemplos varios para trabajar con archivos en visual basic.NET

Buscar en Recursos vb