Salut,
Avec ta listbox qui s'appelle ListBox1, çà donne ceci :
Dim sTemp As String
Open "fichier.txt" For Input As #1
While not EOF(1)
Line Input#1, sTemp
If UCase(sTemp) = sTemp Then
ListBox1.Additem sTemp
End If
Wend
Close #1
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
|