IBM Lotus Symphony


Instrucción Close [Ejecución]

Cierra un archivo especificado que se ha abierto con la instrucción Open.

Sintaxis:

Close FileNumber As Integer[, FileNumber2 As Integer[,...]]

Parámetros:

FileNumber: Cualquier expresión de entero que especifique el número del canal de datos que se abrió con la sentencia Abrir.

Ejemplo:

Sub ExampleWorkWithAFile

Dim iNumero As Integer

Dim sLinea As String

Dim aArchivo As String

Dim sMsg as String

aArchivo = "c:\data.txt"

sMsg = ""

iNumero = Freefile

Open aArchivo For Output As #iNumero

Print #iNumero, "Primera línea de texto"

Print #iNumero, "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 & sLinea & chr(13)

end if

wend

Close #iNumero

Msgbox sMsg

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas