IBM Lotus Symphony


Función FreeFile [Ejecución]

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.

Sintaxis:

FreeFile

Valor de retorno:

Entero

Parámetros:

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.

Códigos de error

5 Inicio del proceso no válido

67 Demasiados archivos

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