Bonjour
j'ai un probleme de lecture de fichier.j'essai de lire le fichier ligne par ligne
mettre la ligne dans une variable que j'affiche dans un textbox
le probleme que j'ai c'est que juste la derniere ligne qui s'affiche et pourtant j'ai fais une boucle pour tous lire voilà mon 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
Dim File As TextStream
Dim Path_File As String
Dim ligne As String
Dim i As Integer
 
i = 0
ligne = 0
Path_File = "c:\test.txt "
Set File = SystemeFichier.OpenTextFile(Path_File, ForReading)
While Not File.AtEndOfStream
    line = File.ReadLine
    i = i + 1
    Text1.Text = ligne
 
Wend
File.Close
merci de m'aider de voir ou ça bloque

[Edit] Balises Code powered by Xo, merci d'y penser [/Edit]