Discussion :

[Tybbow]

Testé et approuvé.

Merci pol63.

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

[tomlev]

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.

[Mortlhomme]

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


Pour ouvrir:

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
 
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.

...