IBM Lotus Symphony
|
Devuelve el siguiente número de archivo disponible para abrir un archivo. Utilice esta función para abrir un archivo utilizando un número de archivo que no utilice ya un archivo actualmente abierto.
FreeFile
Entero
Esta función sólo se puede utilizar inmediatamente delante de una instrucción Open. FreeFile devuelve el siguiente número de archivo disponible, pero no lo reserva.
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