Suppression d'un fichier texte

Article
08/21/2008

Mise à jour : novembre 2007

Dans cette leçon, vous apprendrez à supprimer un fichier d'un dossier à l'aide de l'My.Computer.FileSystem, objet.

Vous pouvez supprimer un fichier texte à l'aide de la My.Computer.FileSystem.DeleteFile, méthode. C'est toujours une bonne idée de demander aux utilisateurs de confirmer qu'ils souhaitent supprimer un fichier avant le supprimer-le réellement. Imaginez si vous aviez cliqué par erreur sur un bouton qui supprime automatiquement et sans avertissement un fichier dont vous aviez besoin ! Vous utiliserez l'énumération MsgBoxResult (voir MsgBoxResult, énumération) pour déterminer si l'utilisateur clique sur Oui ou sur Non lorsqu'il est invité à confirmer la suppression.

Essayez !

Supprimer un fichier

Ouvrez le projet Visionneuse d'images de la leçon précédente. Si vous ne l'avez pas encore terminée, allez à Lecture d'un fichier texte et terminez cette leçon avant de poursuivre.
Dans l'Explorateur de solutions, cliquez sur Form1.vb, puis dans le menu Affichage, cliquez sur Concepteur.
Ajoutez un contrôle Button au formulaire à côté du bouton Charger les favoris.
Modifiez les propriétés suivantes de ce bouton :

Propriété

Valeur

Nom

DeleteFavorites

Texte

Supprimer les favoris

Taille

92, 23
Double-cliquez sur le nouveau contrôle Button pour ajouter le gestionnaire d'événements par défaut dans l'éditeur de code.

Propriété	Valeur
Nom	DeleteFavorites
Texte	Supprimer les favoris
Taille	92, 23

Dans le gestionnaire d'événements DeleteFavorites_Click, ajoutez le code suivant. Ce code vérifie que le fichier à supprimer existe, puis affiche un message pour vérifier que l'utilisateur souhaite supprimer le fichier. Si l'utilisateur clique sur Oui, la zone d'image et la zone de liste sont effacées, puis, le fichier texte FavoritePictures est supprimé du dossier Documents.

' Check that the favorites text file exists.
If My.Computer.FileSystem.FileExists(FavoritePictures) Then

    ' Ensure that user wants to delete the favorites text file.
    If MsgBox("Are you sure you want to send the favorites" _
        & " file to the Recycle Bin?", MsgBoxStyle.YesNo, _
        "Delete Favorite Pictures") = MsgBoxResult.Yes Then

        ' Clear the picture box and the list box.
        Me.ListBox1.Items.Clear()
        Me.PictureBox1.ImageLocation = ""

        ' Delete the favorites file.
        My.Computer.FileSystem.DeleteFile(FavoritePictures)

    End If
Else
    MsgBox("The favorites file does not exist.")
End If

Appuyez sur F5 pour exécuter le code.
Cliquez sur Supprimer les Favoris,puis cliquez sur Oui lorsque vous y êtes invités.
Vérifiez que le fichier FavoritePictures.txt a été supprimé du dossier Documents en cliquant sur le bouton Charger les favoris.

Étapes suivantes

Dans cet ensemble de leçons, vous avez appris à créer une application Visionneuse d'images qui vous permet de lire des noms de fichier du répertoire Pictures et d'afficher les images correspondantes dans une zone d'image. Vous avez également appris à lire et écrire dans et depuis un fichier texte et à supprimer ce fichier. Dans l'ensemble de leçons suivant, vous étudierez les classes et les plans des objets que vous pouvez réutiliser dans vos programmes.

Leçon suivante : Programmation avec des objets : utilisation de classes