Activez JavaScript dans le navigateur pour afficher les pages d'aide de LibreOfficeDev

Instruction Reset

Ferme tous les fichiers ouverts et écrit sur le disque dur le contenu de toutes les mémoires tampon des fichiers.

Syntaxe :

Diagramme de l'instruction Reset


Reset

Exemple :


Sub ExampleReset
On Error GoTo ErrorHandler
    Dim iNumber As Integer
    Dim iCount As Integer
    Dim sLine As String
    Dim aFile As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "Ceci est une nouvelle ligne de texte."
    Close #iNumber
    iNumber = Freefile
    Open aFile For Input As iNumber
    For iCount = 1 To 5
        Line Input #iNumber, sLine
        If sLine <>"" Then
            Rem
        End If
    Next iCount
    Close #iNumber
    Exit Sub
ErrorHandler:
    Reset
    MsgBox "Tous les fichiers seront fermés",0,"Error"
End Sub