Citation :
Close #1, #2, #3
Open "c:/bateau.txt" For Output As #1
Open "c:/ttt.txt" For Input As #2
While Not EOF(2) = True
Input #2, truc
Print #1, truc;
Print #1, " ";
Wend:
Close #1, #2, #3
On Error GoTo erreurboucle:
Open "c:/bateau.txt" For Input As #1
Open "c:/ttt.txt" For Output As 2
While Not EOF(1) = True
Input #1, truc
Print #2, truc;
Wend:
erreurboucle:
Close #1, #2, #3
|