Bonsoir, Après plusieurs heures de recherche, je n'ai pas trouvé chaussure à mon pied :-(.

J'ai un programme qui me permet de chercher un code produit dans des longs fichiers texte. Pour simplifier la démarche, je choisi le dossier qui contient mes fichiers textes. Je renseigne le code produit que je cherche dans une textbox et valide avec un bouton. Il cherche dans tous les fichiers et m'enregistre dans une string l'emplacement des fichiers.

Voila le bout de code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
 
        ListBox1.Items.Clear()
 
        Dim Repertoire As String = String.Empty
        Dim findtxt As String = String.Empty
        Dim resultat As New List(Of String)
 
 
        Repertoire = DossierTextBox.Text
        findtxt = FindTextBox.Text
 
        For Each fichiers As String In Directory.GetFiles(Repertoire, "*.txt")
            If File.ReadAllText(fichiers).Contains(findtxt) Then
 
                resultat.Add(fichiers)
                ListBox1.Items.Add(fichiers)
 
            End If
        Next fichiers
 
    End Sub
Comment récupérer chaque ligne de "fichiers" pour ouvrir dans mes 4 richtextbox (en cas de doublon). Merci d'avance pour votre aide.