FreeFile Function

Devuelve'l siguiente númberu de ficheru disponible pa l'apertura d'un ficheru. Esta función utilizar p'abrir un ficheru usando un númberu que nun tea n'usu anguaño por un ficheru abiertu anguaño.

Sintaxis:


FreeFile

Valor de torna:

Enteru

Parámetros:

Esta función namái pue usase darréu delantre d'una instrucción Open. FreeFile devuelve'l númberu de ficheru disponible, pero nun lu acuta.

Error codes:

5 Llamada a procedimientu non válida

67 Abondos ficheros

Exemplu:


Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
    aFile = "c:\data.txt"
    sMsg = ""
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNúmberu, "Primer llinia de testu"
    Print #iNúmberu, "Otra llinia de testu"
    Close #iNumber
    iNumber = Freefile
    Open aFile For Input As #iNumber
    While Not eof(#iNumber)
        Line Input #iNumber, sLine
        If sLine <>"" Then
            sMsg = sMsg & sLine & chr(13)
        End If
    Wend
    Close #iNumber
    MsgBox sMsg
End Sub

Please support us!