IBM Lotus Symphony


Instrucción Open [Ejecución]

Abre un canal de datos.

Sintaxis:

Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]

Parámetros:

FileName: nombre y vía de acceso del archivo que se desea abrir. Si intenta leer un archivo que no existe (Access = Read), aparece un mensaje de error. Si intenta escribir en un archivo que no existe (Access = Write), se crea un archivo nuevo.

Mode: palabra clave que especifica el modo del archivo. Los valores válidos son: Append (agregar a un archivo secuencial), Binary (se puede acceder a los datos mediante bytes utilizando Get y Put), Input (abre el canal de datos para leer datos), Output (abre el canal de datos para escribir datos) y Random (edita los archivos relativos).

IOMode: palabra clave que define el tipo de acceso. Los valores válidos son: Read (sólo lectura), Write (sólo escritura), Read Write (ambas).

Protected: palabra clave que define el estado de seguridad de un archivo tras abrirlo. Los valores válidos son: Shared (otras aplicaciones pueden abrir el archivo), Lock Read (el archivo está protegido contra lecturas), Lock Write (el archivo está protegido contra escrituras), Lock Read Write (deniega el acceso al archivo).

FileNumber: cualquier expresión de entero de 0 a 511 para indicar el número de un canal de datos libre. A continuación, puede pasar mandatos a través del canal de datos para acceder al archivo. El número del archivo debe determinarse mediante la función FreeFile inmediatamente después de la instrucción Open.

DatasetLength: en el caso de archivos de acceso aleatorio, establezca la longitud de los registros.

Icono de nota Sólo puede modificar el contenido de un archivo que se haya abierto con la instrucción Open. Si intenta abrir un archivo que ya está abierto, aparece un mensaje de error.

Ejemplo:

Sub ExampleWorkWithAFile

Dim iNumero As Integer

Dim sLinea As String

Dim aArchivo As String

Dim sMsg as String

aArchivo = "c:\data.txt"

iNumero = Freefile

Open aArchivo For Output As #iNumero

Print #iNumero, "Esta es una línea de texto"

Print #iNumero, "Esta es otra línea de texto"

Close #iNumero

iNumero = Freefile

Open aArchivo For Input As iNumero

While not eof(iNumero)

Line Input #iNumero, sLinea

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumero

Msgbox sMsg

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas