sauvegarde fichier

Question

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

cs_Exploreur · Answer

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

Kristof_Koder · Answer

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:	est.txt")

  For i As Integer = 0 To ListBox1.Items.Count - 1
    SW.WriteLine(ListBox1.Items(i))
  Next
SW.Close()

cs_DARKSIDIOUS · Answer

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

RobotVB · Answer

oui, désolé je n'avais pas vu le classement par version :-(

cs_DARKSIDIOUS · Answer

Salut,

OK message déplacé !
______________________________________
DarK Sidious

Sauvegarde fichier

5 réponses

Votre réponse

Discussions similaires