Guida di Collabora Office 24.04

Funzione FreeFile

Restituisce il numero del file successivo disponibile per l'apertura. Questa funzione vi permette di aprire un file usando un numero non utilizzato dai file attualmente aperti.

Sintassi:

FreeFile

Valore restituito:

Integer

Parametri:

Questa funzione può essere usata solo direttamente davanti a un'istruzione Open. FreeFile restituisce il numero del file successivo disponibile, ma non lo riserva.

Codici di errore:

5 Richiamo di procedura non valido

67 Troppi file

Esempio:

Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "Questa è una riga di testo"
    Print #iNumber, "Questa è un'altra riga di testo"
    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

Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
    aFile = "~/data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "Questa è una riga di testo"
    Print #iNumber, "Questa è un'altra riga di testo"
    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