写入文本文件

项目
08/18/2008

更新：2007 年 11 月

在本课中，您将了解如何在 Visual Basic 中使用 My.Computer.FileSystem 对象向文本文件中写入字符串。

上一课检索文件夹中文件的名称说明了如何创建图片查看器应用程序（它可以在图片框中显示文件夹中的图片）。接下来的步骤是将您收藏的图片的名称保存到一个文本文件中。

文件基础知识

在写入文本文件之前，应当了解某些事项。Visual Basic 中的 My 对象使文件的操作更容易。可以使用 My.Computer.FileSystem 对象向计算机上的文件进行写入。

可以使用 My.Computer.FileSystem.WriteAllText 方法向文本文件写入字符串。如果文件不存在，此方法会为您创建它。通过将 True 作为 append 参数传递，可以指示要向文件中添加文本，而不是覆盖现有文本。

说明：
在 Windows XP 中，有一些特殊的文件夹，分别命名为“我的文档”、“图片收藏”和“我的音乐”。在 Windows Vista 中，这些文件夹的名称中没有“我的”，而分别命名为“文档”、“图片”和“音乐”。您将在本课中使用这些文件夹。不过，本课中的代码可同时在 Windows XP 和 Windows Vista 上运行。

试一试！

向文本文件追加文本

打开上一课中的图片查看器项目。如果您尚未完成上一课，请转到检索文件夹中文件的名称并完成该课，然后再继续。
在解决方案资源管理器中，选择“Form1.vb”，然后在“视图”菜单中单击“设计器”。
在窗体中添加“Button”控件，将它置于“加载图片”按钮旁边，并将其命名为“FavoritesAdd”。
更改此按钮的下列属性：

属性

Value

Text

添加到收藏夹

Size

92, 23

属性	Value
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 文件以验证该图片名称是否已追加到该文件。

后续步骤

在本课中，您了解了如何向文本文件中追加文本。在下一课中，您将了解如何从文本文件读取文本。

下一课：读取文本文件

请参见

任务

检索文件夹中文件的名称

其他资源

使用文件系统：写入和读取文件

Visual Basic 指导教程