IBM Lotus Symphony
|
Cierra un archivo especificado que se ha abierto con la instrucción Open.
Close FileNumber As Integer[, FileNumber2 As Integer[,...]]
FileNumber: Cualquier expresión de entero que especifique el número del canal de datos que se abrió con la sentencia Abrir.
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