Lire un fichier Texte.

Testé et approuvé. :ccool:

Merci pol63.

Mais ça serait bien de savoir pourquoi je n'avais pas tout le fichier avec l'autre manière.. ^^

A mon avis c'est parce que tu n'avais pas fermé le fichier, et comme il n'était pas flushé automatiquement, une partie des données était encore dans le buffer d'écriture et pas encore sur disque.

Peut-être ce code...
Il faut deux TextBox : textF1 et textF2
Il faut un bouton "Start"


Pour ouvrir:

Code:

---

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

Private Sub Start_Click() Handles Start.Click Dim ttt as Variant TextF1.Multiline=True TextF2.Multiline=True   Try FileOpen(1,c:\doc1.txt,OpenMode.input) While not EOF(1) tout = LineImput(1) TextF1.Text = TextF1.Text + ttt + Chr(13) + Chr(10) End While Finally FileClose(1) End Try   Try FileOpen(1,c:\doc2.txt,OpenMode.input) While not EOF(1) tout = LineImput(1) TextF2.Text = TextF2.Text + ttt + Chr(13) + Chr(10) End While Finally FileClose(1) End Try

---

Ici on prend en compte que le chemin des fichiers sont "c:\doc1.txt" et "c:\doc2.txt"
Ainci le contenu de tes fichiers seront dans les contrôles textbox.

...