Löschen einer Textdatei

Článek
09/02/2008

Aktualisiert: November 2007

In dieser Lektion lernen Sie, wie Sie mit dem My.Computer.FileSystem-Objekt eine Datei aus einem Ordner löschen.

Sie können eine Textdatei löschen, indem Sie die My.Computer.FileSystem.DeleteFile-Methode verwenden. Es ist stets sinnvoll, die Benutzer zu fragen, ob sie eine Datei wirklich löschen möchten, bevor sie tatsächlich gelöscht wird. Stellen Sie sich vor, Sie klicken versehentlich auf eine Schaltfläche und es wird automatisch ohne Warnung eine Datei gelöscht, die Sie benötigen! Stellen Sie mithilfe der MsgBoxResult-Enumeration fest, ob der Benutzer auf Ja oder Nein klickt, wenn er aufgefordert wird, den Löschvorgang zu bestätigen.

Übung

Löschen einer Datei

Öffnen Sie das Bildanzeigeprojekt aus der vorherigen Lektion. Wenn Sie die Lektion noch nicht abgeschlossen haben, kehren Sie zu Lesen aus einer Textdatei zurück und beenden die Lektion, bevor Sie fortfahren.
Klicken Sie im Projektmappen-Explorer auf Form1.vb, und klicken Sie dann im Menü Ansicht auf Designer.
Fügen Sie dem Formular ein Button-Steuerelement hinzu, und positionieren Sie es neben der Schaltfläche Favoriten laden.
Ändern Sie die folgenden Eigenschaften dieser Schaltfläche:

Eigenschaft

Wert

Name

DeleteFavorites

Text

Favoriten löschen

Größe

92, 23
Doppelklicken Sie auf das neue Button-Steuerelement, um den Standardereignishandler im Code-Editor hinzuzufügen.

Eigenschaft	Wert
Name	DeleteFavorites
Text	Favoriten löschen
Größe	92, 23

Fügen Sie im DeleteFavorites_Click-Ereignishandler folgenden Code hinzu: Mit diesem Code wird überprüft, ob die zu löschende Datei vorhanden ist. Anschließend wird ein Meldungsfeld angezeigt, in dem das Löschen der Daten bestätigt werden muss. Wenn der Benutzer den Löschvorgang bestätigt, werden das Bildfeld und das Listenfeld gelöscht, und die Textdatei FavoritePictures wird aus dem Ordner Dateien gelöscht.

' 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

Drücken Sie F5, um den Code auszuführen.
Klicken Sie auf Favoriten löschen, und klicken Sie anschließend auf Ja, wenn Sie dazu aufgefordert werden.
Überprüfen Sie, ob die Datei FavoritePictures.txt aus dem Ordner Dokumente gelöscht wurde, indem Sie auf die Schaltfläche Favoriten laden klicken.

Nächste Schritte

In diesen Lektionen haben Sie gelernt, wie eine Bildanzeigeanwendung erstellt wird, mit der Sie Dateinamen aus dem Verzeichnis für Bilder lesen und die entsprechenden Bilder in einem Bildfeld anzeigen können. Außerdem haben Sie erfahren, wie eine Textdatei gelesen wird, wie in die Datei geschrieben wird und wie die Textdatei gelöscht wird. In den folgenden Lektionen erfahren Sie mehr zum Thema Klassen – die Blaupausen für Objekte, die Sie immer wieder in Programmen verwenden können.

Nächste Lektion: Programmieren mit Objekten: Verwenden von Klassen