pb chargement d' un .txt dans une listboxRésolu

Question

Bon vous allez dire "ho non encore!!" mais bon je ne suis pas aussi nzae pour ne pas avoir chercher avant.

Alors j'ai récupéré ca :

Dim chemin As String
Dim txt As String
chemin = App.Path & "\Bannis" & "\liste.txt"
Open chemin For Output As #1
While Not EOF(1)
Line Input #1, txt
banlist.AddItem txt
Wend
Close #1

J'ai mis ca dans form_load pour qu'il se charge des que la form se lance. Apres un 1er test, rien .. la listbox reste vide. Je tente un debug et je m'apercois qu'il ne rentre pas dans la boucle. Vous allez me dire : tu es sur qu'il est rempli ton .txt? réponse il est rempliet le chemin pointe bien vers le fichier txt.

Pourquoi ne veut-il pas se charger?

jpleroisse · Accepted Answer

Bonsoir,

Output n'ouvre pas un fichier, mais le cr&#233;e, si tu veux ouvrir c'est Input



Private Sub Command1_Click()



Dim Donnees As String

Open "C:\Text1.txt" For Input As #1

Do While Not EOF(1)

   Input #1, Donnees

   Me.List1.AddItem Donnees

Loop

Close #1

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Pb chargement d' un .txt dans une listbox

1 réponse

Discussions similaires