Écriture dans un fichier texte

Article
08/21/2008

Mise à jour : novembre 2007

Dans cette leçon, vous apprendrez à écrire une chaîne dans un fichier texte dans Visual Basic à l'aide de l'objet suivant : My.Computer.FileSystem, objet.

La leçon précédente, Récupération des noms des fichiers dans un dossier, décrit comment créer une application Visionneuse d'images qui affiche les images d'un dossier dans une zone d'image. L'étape suivante consiste à enregistrer les noms de vos images favorites dans un fichier texte.

Concepts de base des fichiers

Avant d'écrire dans un fichier texte, vous devez savoir certaines choses. L'objet My dans Visual Basic facilite l'utilisation de fichiers. Vous pouvez écrire dans des fichiers d'un ordinateur à l'aide de l'objet suivant :My.Computer.FileSystem, objet.

Vous pouvez utiliser la méthode My.Computer.FileSystem.WriteAllText (voir My.Computer.FileSystem.WriteAllText, méthode) pour écrire une chaîne dans un fichier texte. Si le fichier n'existe pas, cette méthode la créera pour vous. Vous pouvez indiquer que vous souhaitez ajouter le texte au fichier, au lieu de substituer le texte existant, en passant True comme paramètre append.

Remarque :
Il existe dans Windows XP des dossiers spéciaux nommés MyDocuments, MyPictures et MyMusic. Dans Windows Vista, le nom de ces dossiers ne comporte pas « My » ; à la place, ils sont nommés Documents, Pictures et Music. Vous utiliserez ces dossiers dans cette leçon. Toutefois, le code de cette leçon s'exécutera sur Windows XP et Windows Vista.

Essayez !

Pour ajouter du texte à un fichier texte

Ouvrez le projet Visionneuse d'images de la leçon précédente. Si vous ne l'avez pas encore terminée, allez à Récupération des noms des fichiers dans un dossier et terminez cette leçon avant de poursuivre.
Dans l'Explorateur de solutions, sélectionnez Form1.vb, puis dans le menu Affichage, cliquez sur Concepteur.
Ajoutez un contrôle bouton au formulaire, à côté du bouton Charger les images, et nommez-le AjouterFavoris.
Modifiez les propriétés suivantes de ce bouton :

Propriété

Valeur

Texte

Ajouter aux favoris

Taille

92, 23
Double-cliquez sur le bouton Ajouter aux favoris et ajoutez le code suivant au gestionnaire d'événements FavoritesAdd_Click. Ce code ajoute le texte sélectionné dans la zone de liste au fichier FavoritePictures.txt.
```
If PictureBox1.ImageLocation <> "" Then

    ' Add the selected picture to the favorites text file.
    My.Computer.FileSystem.WriteAllText(FavoritePictures, _
        Me.ListBox1.SelectedItem & ",", True)

End If
```
Ajoutez le code suivant au-dessus du gestionnaire d'événements FavoritesAdd_Click. Ce code définit le chemin d'accès et le nom de fichier pour la variable FavoritePictures.
```
Dim FavoritePictures As String = _
    My.Computer.FileSystem.SpecialDirectories.MyDocuments _
    & "\FavoritePictures.txt"
```
Appuyez sur F5 pour exécuter le code.
Cliquez sur Charger des images et cliquez sur votre image préférée dans la liste.
Cliquez sur Ajouter aux favoris.
Ouvrez le fichier FavoritePictures.txt enregistré dans le dossier Documents pour vérifier que le nom de l'image est ajouté au fichier.