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

可使用 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。

另请参阅

• FileSystem
• WriteAllText
• 如何：读取文本文件