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

2025-06-17

该方法 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使用该方法将文本写入文件，指定要添加的目标文件和字符串并将其设置为 appendTrue。

本示例将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）。

如果在部分信任上下文中运行，则代码可能会由于权限不足而引发异常。有关详细信息，请参阅代码访问安全基础知识。

另请参阅