Запись в текстовый файл

Статья
11/05/2008

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

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

В предыдущем разделе Получение имен файлов, содержащихся в папке описывается создание приложения для просмотра рисунков, отображающего в поле изображения картинки, находящиеся в папке. Следующим шагом является сохранение имен выбранных фотографий в текстовый файл.

Основные сведения о файлах

Перед записью в текстовый файл необходимо изучить некоторые вопросы. Объект My в Visual Basic упрощает работу с файлами. Можно выполнять запись в файлы на компьютере с помощью Объект My.Computer.FileSystem.

Можно использовать метод Метод My.Computer.FileSystem.WriteAllText для записи строки в текстовый файл. Если файл не существует, при использовании этого метода он будет создан автоматически. Можно выбрать добавление текста в файл вместо перезаписи существующего текста, передав True в качестве значения параметра append.

Примечание.
В Windows XP предусмотрены специальные папки с именами "Мои документы", "Мои рисунки" и "Моя музыка". В Windows Vista имена этих папок не содержат слова "Мои" – они называются просто "Документы", "Рисунки" и "Музыка". В этом разделе будут использоваться данные папки. Однако код, о котором идет речь в этом занятии, будет выполняться и в Windows XP, и в Windows Vista.

В Windows XP предусмотрены специальные папки с именами "Мои документы", "Мои рисунки" и "Моя музыка". В Windows Vista имена этих папок не содержат слова "Мои" – они называются просто "Документы", "Рисунки" и "Музыка". В этом разделе будут использоваться данные папки. Однако код, о котором идет речь в этом занятии, будет выполняться и в Windows XP, и в Windows Vista.

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

Добавление текста в текстовый файл

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

Свойство

Значение

Text

Добавить в избранное

Size

92, 23
Дважды щелкните значок кнопки Добавить в избранное и добавьте следующий код в обработчик событий FavoritesAdd_Click. Этот код добавляет выбранный в списке текст в файл 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
```
Над обработчиком событий FavoritesAdd_Click добавьте следующий код. Этот код определяет путь и имя файла для переменной FavoritePictures.
```
Dim FavoritePictures As String = _
    My.Computer.FileSystem.SpecialDirectories.MyDocuments _
    & "\FavoritePictures.txt"
```
Нажмите клавишу F5 для запуска кода.
Нажмите кнопку Загрузить рисунки и щелкните выбранный рисунок в списке.
Нажмите кнопку Добавить в избранное.
Откройте файл FavoritePictures.txt, сохраненный в папке "Документы", и убедитесь, что имя рисунка добавлено в файл.