Bonjour à tous,

Je galère déjà depuis un petit moment, j’espère que vous pourrez me guider ...

Une partie de mon programme consiste à récupérer des chemins d'accès de fichiers txt et de les enregistrer ligne par ligne dans un nouveau fichier texte, jusqu'à là tout fonctionne : voici le 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
 Imports System.IO
 
Public Class UserControl5
 
    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim FichierselectionEEC1 As String = String.Empty
        Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
        OpenFileDialog1.ShowDialog()
            FichierselectionEEC1 = OpenFileDialog1.FileName
            TextBox1.Text = FichierselectionEEC1
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim FichierselectionEEC2 As String = String.Empty
        Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
        OpenFileDialog1.ShowDialog()
        FichierselectionEEC2 = OpenFileDialog1.FileName
        TextBox2.Text = FichierselectionEEC2
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim FichierselectionEEC3 As String = String.Empty
        Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
        OpenFileDialog1.ShowDialog()
        FichierselectionEEC3 = OpenFileDialog1.FileName
        TextBox3.Text = FichierselectionEEC3
    End Sub
 
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim FichierselectionLCA As String = String.Empty
        Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
        OpenFileDialog1.ShowDialog()
        FichierselectionLCA = OpenFileDialog1.FileName
        TextBox4.Text = FichierselectionLCA
    End Sub
 
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim FichierselectionLCR As String = String.Empty
        Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
        OpenFileDialog1.ShowDialog()
        FichierselectionLCR = OpenFileDialog1.FileName
        TextBox5.Text = FichierselectionLCR
    End Sub
 
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim FichierselectionFQPA As String = String.Empty
        Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
        OpenFileDialog1.ShowDialog()
        FichierselectionFQPA = OpenFileDialog1.FileName
        TextBox6.Text = FichierselectionFQPA
    End Sub
 
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim FichierselectionFQPR As String = String.Empty
        Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
        OpenFileDialog1.ShowDialog()
        FichierselectionFQPR = OpenFileDialog1.FileName
        TextBox7.Text = FichierselectionFQPR
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
 
        Dim sw As String = "C:\Users\TEST\Desktop\Test\CheminEnquetes.txt"
        Dim lines As List(Of String) = File.ReadLines(sw).ToList()
 
 
        If TextBox1.Text = "" Then
        Else : lines(0) = """" & TextBox1.Text & """"
        End If
 
        If TextBox2.Text = "" Then
        Else : lines(1) = """" & TextBox2.Text & """"
        End If
 
        If TextBox3.Text = "" Then
        Else : lines(2) = """" & TextBox3.Text & """"
        End If
 
        If TextBox4.Text = "" Then
        Else : lines(3) = """" & TextBox4.Text & """"
        End If
 
        If TextBox5.Text = "" Then
        Else : lines(4) = """" & TextBox5.Text & """"
        End If
 
        If TextBox6.Text = "" Then
        Else : lines(5) = """" & TextBox6.Text & """"
        End If
 
        If TextBox7.Text = "" Then
        Else : lines(6) = """" & TextBox7.Text & """"
        End If
 
        File.WriteAllLines(sw, lines)
 
        MsgBox("Mise à jour validée")
 
    End Sub
 
 
 
 
 
End Class
Le problème que je rencontre arrive ensuite, je veux récupérer une des lignes de ce fichier texte qui contient plusieurs liens vers d'autres fichiers texte.
Pour être plus clair voici le contenu de la ligne 1 : I:\TEST\FQP14A\Tableaux\TAB-A.TXT
voici le contenu de la ligne 2 : I:\TEST\EMP14A\TABLEAUX\Tab-D-24032014.TXT
etc avec une vingtaine de lien vers des fichiers.

Ce que je n'arrive pas à faire, c'est de récupérer par exemple la première ligne et m'en servir dans le code de mon programme pour remplacer le "I:\TEST\LC14T3\TABLEAUX\TAB-A.TXT":
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim readFileLC As System.IO.TextReader = New StreamReader("I:\TEST\LC14T3\TABLEAUX\TAB-A.TXT")
J'ai essayé ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 Dim sw As String = "C:\Users\TEST\Desktop\Test\CheminEnquetes.txt"
        Dim linebis As List(Of String) = File.ReadLines(sw).ToList()
        Dim LienLCA As String
        LienLCA = linebis(3)
        MsgBox(LienLCA)
 
 
Dim readFileLC As System.IO.TextReader = New StreamReader(LienLCA)
Mais je ne récupère pas le lienLCA et rien ne se produit...

Est ce que je suis assez clair dans ma demande???
Si oui, pouvez-vous m'aider ???