Bonjour,
le code ci-dessous efface le fichier mais n'efface pas les enregistrements dans le fichier ini ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
For a As Integer = 0 To ComboBox4.Items.Count - 1
            Dim mot = ComboBox4.Items(a)
            If ComboBox1.Items.Contains(mot) = False Then
                System.IO.File.Delete(".\ateliers\" & mot & ".txt")
                For x As Integer = 0 To ComboBox2.Items.Count - 1
                    For y As Integer = 0 To ComboBox3.Items.Count - 1
                        DeleteKey(".\entretien.ini", "Periodicité d'entretien", mot & ";" & ComboBox2.Items(x) & ";" & ComboBox3.Items(y))
                        DeleteKey(".\entretien.ini", "Prochain entretien", mot & ";" & ComboBox2.Items(x) & ";" & ComboBox3.Items(y))
                        DeleteKey(".\entretien.ini", "Date du dernier entretien", mot & ";" & ComboBox2.Items(x) & ";" & ComboBox3.Items(y))
                    Next
                Next
            End If
        Next
voici le fichier ini:
[Date du dernier entretien]
Atelier Mr24;Tour Schaublin n°1;changer l'huile=23.10.2018
Atelier Mr24;Tour Schaublin n°1;évaluation de la poupée=10.10.2018
Atelier Mr30;Fraiseuse 213 n°1;évaluation=12.12.2018
Atelier Mr30;sdfsdfsdf;dsfsdfsdf=10.10.2017
[Periodicité d'entretien]
Atelier Mr24;Tour Schaublin n°1;changer l'huile=365
Atelier Mr30;Fraiseuse 213 n°1;évaluation=2
Atelier Mr24;Tour Schaublin n°1;évaluation de la poupée=5
Atelier Mr30;sdfsdfsdf;dsfsdfsdf=5
[Prochain entretien]
Atelier Mr24;Tour Schaublin n°1;changer l'huile=23.10.2019
Atelier Mr30;Fraiseuse 213 n°1;évaluation=14.12.2018
Atelier Mr24;Tour Schaublin n°1;évaluation de la poupée=15.10.2018
Atelier Mr30;sdfsdfsdf;dsfsdfsdf=15.10.2017