Bonsoir

j'ecri un program en VB

J'ai cree un fichier texte fichier_ping.txt
je veux parcourir de fichier pour faire des traitements
mais mon program boucle infiniment dans la boucle do while EOF
voici le code.


Open "C:\fichier_ping.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, ligne
If Len(ligne) <> 0 Then
rep = Mid(ligne,1, 7)
If (rep = "Reponse")

'----- les traitements

End If
End If
Loop ' fin tant que

Pouver vous m'aider

merci