如何：在 Visual Basic 中向文件内写入文本

项目
04/07/2023

可使用 WriteAllText 方法向文件写入文本。如果指定的文件不存在，则会创建一个。

过程

向文件写入文本

可以使用 WriteAllText 方法向文件写入文本，并指定要写入的文件和文本。此示例将行 "This is new text." 写入名为 test.txt 的文件，同时将文本追加到文件中的任何现有文本。
```
My.Computer.FileSystem.WriteAllText("C:\TestFolder1\test.txt",
"This is new text to be added.", True)
```

向文件写入一系列字符串

通过字符串集合循环。可以使用 WriteAllText 方法向文件写入文本，同时指定目标文件以及要添加的字符串，并将 append 设置为 True。

此示例将 Documents and Settings 目录中的文件名写入 FileList.txt，并在每个文件之间插入回车符，以增强可读性。
```
For Each foundFile As String In
My.Computer.FileSystem.GetFiles("C:\Documents and Settings")
    foundFile = foundFile & vbCrLf
    My.Computer.FileSystem.WriteAllText(
      "C:\Documents and Settings\FileList.txt", foundFile, True)
Next
```

可靠编程

以下情况可能会导致异常：

路径由于以下原因之一而无效：属于零长度字符串、仅包含空格、包含无效字符或属于设备路径（开头字符为 \\.\）(ArgumentException)。
路径无效，因为它是 Nothing (ArgumentNullException)。
File 指向不存在的路径（FileNotFoundException 或 DirectoryNotFoundException）。
文件正由另一个进程使用，或者出现 I/O 错误 (IOException)。
路径超过了系统定义的最大长度 (PathTooLongException)。
路径中的文件名或目录名包含冒号 (:)，或格式无效 (NotSupportedException)。
该用户缺少查看该路径所必需的权限 (SecurityException)。
磁盘已满，且对 WriteAllText 的调用失败 (IOException)。

如果在部分信任上下文中运行，该代码可能会因特权不足而引发异常。有关详细信息，请参阅 Code Access Security Basics。

另请参阅