Pb chargement d' un .txt dans une listbox [Résolu]

Signaler
Messages postés
29
Date d'inscription
samedi 1 novembre 2003
Statut
Membre
Dernière intervention
8 février 2007
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
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?

1 réponse

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
23
Bonsoir,

Output n'ouvre pas un fichier, mais le cré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éponse vous convient, cliquez Réponse Acceptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci