IBM Lotus Symphony
|
Abre un canal de datos.
Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]
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.
![]() |
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. |
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