Discussion :

[ludovic85]

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! : :

[ludovic85]

La seul solution que j'ai trouve c'est de créer un deuxieme fichier avec un nombre que j'icremente mais c pas tres élégant ...

[Thomas Lebrun]

Pourquoi as-tu une 2ème StreamReader :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim lecture As New StreamReader("certif.ini")

:

Car en plus, tu ouvre ce SR mais tu ne le refermes pas....