Abrir Archivo:Open Archivo For Modo Access Acceso Bloquear As #NumArchivo Len=LongRegCerrar Archivo:Close #NumArchivo Archivo:Direccion donde se encuentra el archivo a abrir.
Modo:Append: Agrega datos al archivo.
Binary: El archivo se abre para trabajar en forma binaria.
Input: El archivo se abre para leer datos.
Output: El archivo se abre para escribir datos.
Random: Se adapta automaticamente al uso que le demos (viene predeterminado si no se usa el
Modo.
Acceso:Read: Especifica que la accion posible a realizar en el archivo es lectura.
Write: Especifica que la accion posible a realizar en el archivo es escritura.
Read Write: Especifica que la accion posible a realizar en el archivo es de lectura y escritura.
Bloquear:Lock Read: El archivo esta bloqueado para lectura por otros procesos.
Lock Write: El archivo esta bloqueado para escritura por otros procesos.
Lock Read Write: El archivo esta bloqueado para lectura y escritura por otros procesos.
Shared: El archivo se puede abrir por cualquier proceso (viene predeterminado si no se usa
Bloquear.
NumArchivo:FreeFile: Asigna el numero de archivo siguiente libre para identificar (Maximo: 1-511, es posible usar numeros).
LongReg:Se puede establecer el tamaño del dato a guardar o leer, si no se especifica el tamaño el tamaño es lo que se va a escribir o leer.
Campos obligatorios:Open Archivo As #NumArchivo Si escribis el codigo como te acabo de pasar en Microsoft Visual Basic 6, automaticamente el editor te lo convierte a:
Open Archivo For Random As #NumArchivoA continuacion te dejo unos ejemplos:Open "PRUEBA" For Input As #1
' Cierra antes de volver a abrir en otro modo.
Close #1
'Este ejemplo abre el archivo en modo binario para operaciones de sólo escritura.
Open "PRUEBA" For Binary Access Write As #1
' Cierra antes de volver a abrir en otro modo.
Close #1
'El siguiente ejemplo abre el archivo en modo de acceso aleatorio. El archivo contiene registros del tipo definido por el usuario Record.
Type Record ' Define un tipo definido por el usuario.
Id As Integer
Nombre As String * 20
End Type
Dim MiRegistro As Record ' Declara una variable.
Open "PRUEBA" For Random As #1 Len = Len(MiRegistro)
' Cierra antes de volver a abrir en otro modo.
Close #1
'Este ejemplo abre el archivo para salida secuencial; cualquier proceso podrá leer y escribir en el archivo.
Open "PRUEBA" For Output Shared As #1
' Cierra antes de volver a abrir en otro modo.
Close #1
'Este ejemplo abre el archivo en modo binario para lectura; ningún otro proceso podrá leer el archivo.
Open "PRUEBA" For Binary Access Read Lock Read As #1
Espero te sirva, saludos!