Ecrire le contenu d'un document .TXT dans une textbox

[Creepy]

Salut,

Comment demander à une textebox, qu'elle prenne comme caption, le contenu d'un fichier texte (.txt) ?

Merci d'avance

++

Creepy

 

[michel]

bonjour Creepy

j'espere que l'exemple ci dessous repondra à ta demande

Private Sub CommandButton1_Click()
Dim Fichier As String
Dim val As Long
Dim Cible As String
Fichier = "C:\monfichier.txt"
Open Fichier For Input As #1 'recup données fichier texte
val = FileLen(Fichier)
Cible = Input(val, 1)
Close #1
TextBox1 = Cible
End Sub


bonne soiree
michel