Удаление текстового файла

Статья
11/05/2008

Обновлен: Ноябрь 2007

На этом занятии будет рассказано, как удалить файл из папки с помощью Объект My.Computer.FileSystem.

Текстовый файл можно удалить с помощью Метод My.Computer.FileSystem.DeleteFile. Перед фактическим удалением файла рекомендуется всегда спрашивать у пользователей, уверены ли они в том, что хотят удалить файл. Представьте, что из-за случайного нажатия кнопки без предупреждения автоматически удалился важный файл! Необходимо использовать Перечисление MsgBoxResult, чтобы определить, нажал ли пользователь кнопку Да или Нет при подтверждении удаления.

Практическое задание

Удаление файла

Откройте проект приложения для просмотра рисунков из предыдущего урока. Если он еще не закончен, перейдите к занятию Чтение из текстового файла и завершите его, а затем возвращайтесь к данному заданию.
В Обозревателе решений выберите Form1.vb, а затем в меню Вид выберите Конструктор.
Добавьте элемент управления Button на форму, расположив его следом за кнопкой Загрузить избранное.
Измените следующие свойства этой кнопки.

Свойство

Значение

Имя

DeleteFavorites

Text

Удалить избранное

Size

92, 23
Дважды щелкните новый элемент управления Button, чтобы добавить обработчик событий по умолчанию в редакторе кода.
В обработчик событий DeleteFavorites_Click добавьте следующий код. Этот код нужен для того, чтобы убедиться, что удаляемый файл существует. После этого он отображает окно сообщения для подтверждения того, что пользователь хочет удалить файл. Если пользователь подтверждает, что хочет удалить файл, графическое окно и список очищаются, а затем текстовый файл FavoritePictures удаляется из папки "Документы".
```
' 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
```
Нажмите клавишу F5 для запуска кода.
Нажмите кнопку Удалить избранное и выберите Да для подтверждения.
Убедитесь, что файл FavoritePictures.txt был удален из папки "Документы", нажав кнопку Загрузить избранное.

Свойство	Значение
Имя	DeleteFavorites
Text	Удалить избранное
Size	92, 23

Следующие действия

В этом наборе уроков был рассмотрен способ создания приложения для просмотра рисунков, которое позволяет прочитать имена файлов из каталога "Рисунки" и отобразить соответствующие рисунки в поле. Было также показано, как осуществлять чтение из текстовых файлов, запись в текстовые файлы и их удаление. В следующем наборе уроков будет рассказано о классах — шаблонах для объектов, которые можно повторно использовать в программе.

Следующее занятие: Программирование с применением объектов. Использование классов