Listbox txt

spaa05 Messages postés 148 Date d'inscription mardi 14 novembre 2000 Statut Membre Dernière intervention 26 juillet 2005 - 29 juin 2005 à 21:47
cs_shaoni Messages postés 186 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 12 septembre 2007 - 30 juin 2005 à 10:49
salut
je ve savoir comment comment enregistrer le contenu d'un listbox dans un fichier text

3 réponses

steb359842 Messages postés 69 Date d'inscription samedi 5 juin 2004 Statut Membre Dernière intervention 24 janvier 2008
29 juin 2005 à 22:26
Voila un exemple

-------------
Dim fs As Object
Dim a As Object

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile"C:\Test.txt", 8, True)
For i = 0 to List1.ListCount -1
a.writeline(List1.List(i))
Next
a.Close

Voila bonne chance...


*°*°*°*°*°*°*°*°*°*°*°*
Marmote Joyeuse
0
cs_shaoni Messages postés 186 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 12 septembre 2007
30 juin 2005 à 10:41
'Ou si tu préfère sans fso



Open "c:\file.txt" For Output As #1

Print #1, Text1

Close #1


font=Tahoma]a+
Shaoni ..[/font=Tahoma
0
cs_shaoni Messages postés 186 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 12 septembre 2007
30 juin 2005 à 10:49
Sorry je me suis tromper dans le msg précédent

dim e as integer



Open "c:\file.txt" For Output As #1



for e=0 to list1.listcount -1

Print #1,list1.list(e)

next e



Close #1
0
Rejoignez-nous