Lecture fichier impossible

Bonjour à tous,
J'ai une petite application vb.net en mode console sous VS 2022, qui permet de modifier complètement le texte d'un fichier avant l'utilisation de cette procédure qui permet de faire un rajout :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub RajoutTextFile() Try Using sr As StreamWriter = File.AppendText("C:\Users\Documents\Module_Program_VB.txt") Console.WriteLine("Entre du texte :") Dim Texte As String = Console.ReadLine() sr.Write(Texte) End Using Catch e As IOException Console.WriteLine("The file could not be read:") Console.WriteLine(e.Message) End Try End Sub
Comment libérer l’accès au fichier qui est encore en lecture :

Citation:

The file could not be read:
The process cannot access the file 'C:\Users\Documents\Module_Program_VB.txt' because it is being used by another process.

Si quelqu'un a une idée MERCI

réponse à moi même

J'ai trouvé la solution qui peut aider quelqu'un en utilisant un StreamWriter avec la classe File et sa méthode CreateText ça fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ModifTextFile()
    Try
        Using sr As StreamWriter = File.CreateText("C:\Users\Documents\Module_Program_VB.txt")
            Console.WriteLine("Entre du texte  :")
            Dim Texte As String = Console.ReadLine()
            sr.Write(Texte)
        End Using
    Catch e As IOException
        Console.WriteLine("Le Fichier ne peut être lu:")
        Console.WriteLine(e.Message)
    End Try
    ReadTextFile()
End Sub

Les 2 réagissent de la même façon. Il se peut que tu ai arrêté un débogage au milieu de ton using (ou son ouverture ailleurs dans ton code) et qu'il a conservé l'état ouvert du fichier.
La seule différence c'est que Create remplace systématiquement le contenu du fichier, alors qu'AppendText ajoute du texte à la fin si le fichier existe.

Oui mais le problème ne venait pas de cette procédure :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub RajoutTextFile() Try Using sr As StreamWriter = File.AppendText("C:\Users\Documents\Module_Program_VB.txt") Console.WriteLine("Entre du texte :") Dim Texte As String = Console.ReadLine() sr.Write(Texte) End Using Catch e As IOException Console.WriteLine("The file could not be read:") Console.WriteLine(e.Message) End Try End Sub
que j'utilisais avant de faire la modification complète du fichier qui elle posait problème, dommage je ne l'ai pas gardée, sais tu comment peut on retrouver des procédures anciennes dans VS 2022 ?

Retrouver des procédures anciennes ...
C'est à ça que servent les gestionnaire de versions comme Git.

oui GIT je commence à m'y intéresser en effet ... Merci
A+