voila le message d'erreur :
Une exception non gérée du type 'System.IO.IOException' s'est produite dans mscorlib.dll

Informations supplémentaires*: Le processus ne peut pas accéder au fichier...(mon fichier)
voila se que je fais avec mon fichier :

dans un premier j'ouvre mon fichier pour compter le nombre de lignes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Function recupfichier() As String
 
        Dim lecture As New StreamReader("certif.ini")
        Dim retour As Integer = 0
        Dim ligne As String
        Dim fi As New StreamReader("certif.ini")
        Do Until fi.Peek = -1 'lecture du fichier jusqu'a la fin
            retour = retour + 1
            ligne = fi.ReadLine() 'lecture de la ligne
            recup = Split(ligne, "|") 'recup(0)=incrément recup(1)=nomProduit recup(2)=CLSID recup(3)=CléCertif
        Loop
        fi.Close()
        Return retour
    End Function


et ensuite j'ajoute une ligne a la fin de celui ci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 Function setLigneFichier(ByVal compteur As String, ByVal nomproduit As String, ByVal CLSID As String, ByVal clé As String)
        Dim fiW As New StreamWriter("certif.ini", True) 'ajoutera a la fin du fichier
        fiW.WriteLine(compteur + 1 & "|" & nomproduit & "|" & CLSID & "|" & clé)
        fiW.Close()
    End Function

J'ai bien fait attention a fermer le fichier a chaque fois je ne comprend pas! : :