Aide Collabora Office 24.04

Fonction FreeFile

Renvoie le prochain numéro de fichier disponible en vue de l'ouverture d'un fichier. Cette fonction permet d'ouvrir un fichier en affectant à celui-ci un numéro non utilisé par un fichier déjà ouvert.

Syntaxe :

FreeFile

Valeur de retour :

Nombre entier

Paramètres :

Cette fonction ne peut être employée qu'immédiatement avant une instruction Open. FreeFile renvoie le prochain numéro de fichier disponible, mais ne le réserve pas.

Codes d'erreur :

5 appel de procédure incorrect

67 trop de fichiers

Exemple :

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, "Ceci est une ligne de texte."
    Print #iNumber, "Ceci est une autre ligne de texte."
    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, "Ceci est une ligne de texte."
    Print #iNumber, "Ceci est une autre ligne de texte."
    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