Sauvegarde fichier

Signaler
Messages postés
6
Date d'inscription
vendredi 14 septembre 2007
Statut
Membre
Dernière intervention
14 septembre 2007
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Bonjour,

Je n'arrive pas à sauvegarder le contenu d'une listbox dans un fichier texte.
J'ai bien trouvé des exemples ici.
comme celui ci

Open "C:\Listbox.txt" For Output As #1

Print #1, CStr(List1.ListCount)

        For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
        Next

Close #1

Mais VB ne reconnait la fonction Open (voir ci dessous). Auriez vous une suggestion ? Merci d avance

Erreur    1    'Open' n'est pas déclaré. La fonctionnalité d'E/S de fichier est disponible dans l'espace de noms 'Microsoft.VisualBasic'.    C:\robotique\drrobot\DrRobot\DrRobot\entrainement.vb    307    1    BonjourWindow

5 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
13
Salut,

Essaye ce bout de code :

Private Sub Form_Load()


' Déclaration
 Dim Monfichier As Integer
 Dim boucle As Integer
 
' Demande un numéro libre de fichier
 Monfichier = FreeFile
 
' Ouverture du fichier en mode écriture
 Open "C:\ListBox.Txt" For Output As #Monfichier
 
 ' boucle sur les éléments et écriture dans le fichier
  For boucle = 0 To List1.ListCount
 
      Print #Monfichier, List1.List(boucle)
 
  Next boucle
 
' Ferme le fichier
 Close #Monfichier
 
End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin


 
Messages postés
918
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 octobre 2008
10
Ton code est du code VB6, or au vu de ton msg d'erreur tu fais du VB.NET !! (au passage, tu n'as pas posté dans le bon forum !!)
Avec ca, ca marchera mieux ...

Dim SW As System.IO.StreamWriter = New System.IO.StreamWriter("c:\test.txt")

For i As Integer = 0 To ListBox1.Items.Count - 1
SW.WriteLine(ListBox1.Items(i))
Next
SW.Close()
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
121
Salut,

Vu le messge d'erreur, et surtout le nom de fichier entrainement.vb je dirais que ce n'est pas du VB6 que tu fais mais du VB.NET !

Je me trompe ?
______________________________________
DarK Sidious
Messages postés
6
Date d'inscription
vendredi 14 septembre 2007
Statut
Membre
Dernière intervention
14 septembre 2007

oui, désolé je n'avais pas vu le classement par version :-(
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
121
Salut,

OK message déplacé !
______________________________________
DarK Sidious