Save a list box with the open dialog

Question

Bonjour chui newbie comme one dis,
je voudrais savoir si quelqu'un pourrais me filer un code pour enregistrer le contenu de ma ListBox dans un .text file avec le Open dialog. & Merci

cs_Exploreur · Answer

Salut,

Voilà :

Private Sub Command1_Click()


    Dim iFreeFile As Integer
        iFreeFile = FreeFile
        
    Dim iIndexListBox As Integer
      
    Open "C:\Listbox.Txt" For Output As #iFreeFile
           
          For iIndexListBox = 0 To List1.ListCount - 1
              Print #iFreeFile, List1.List(iIndexListBox)
          Next iIndexListBox
        
    Close #iFreeFile


End Sub

A toi maintenant de trouver avec la CommonDialog


A+
Exploreur

 Linux a un noyau, Windows un pépin 

Un jeu en flash sympa...? Voir ici
Si vous voulez vous inscrire
mettez comme parrain : exploreur

Save a list box with the open dialog

1 réponse

Votre réponse

Discussions similaires