Pouvez-vous me dire comment lire un fichier Txt dans sa totalité et le stocker dans une variable pour l'afficher dans le Label.
Quand j'utilise : Open "fichier" for append as #1
input #1, variable
Close #1
Lbl1.Caption = variable
Il me met que c'est pas la bonne méthode, pourquoi je ne sais pas... ???
Alors je mets ceci : Open "fichier" for input as #1
input #1, variable
Close #1
Lbl1.Caption = variable
Cela fonctionne toujours pas...
Alors je fais une p'tite recherche et je trouve :
Open "J:\VB_Qualification_2008_Finale\DAT\InscriptionEvenement.txt" For Input As #1
While Not EOF(1)
Input #1, a$
Text1 = Text1 + Chr$(13) + Chr$(10)
Wend
Close #1
Mais rien ne s'affiche ... je sais plus quoi faire
Pouvez-vous m'aider svp
Merci d'avance
Open sCheminEtNomEtExtension For Input As #ff
sContenu = Input$(LOF(ff), #ff)
Close #ff
MsgBox sContenu
~ <small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>