VB.NET中RichTextBox加载我的文档1.txt文件报错求助

你的代码错误在于把VB.NET的路径属性My.Computer.FileSystem.SpecialDirectories.MyDocuments直接写进了字符串里，程序会把这段代码当成路径的一部分，而不是去获取真实的「我的文档」目录路径，所以导致找不到文件报错。

修正后的完整代码如下：

Imports System.IO

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    ' 获取「我的文档」目录的实际路径
    Dim myDocsDirectory As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments
    ' 拼接完整的文件路径（自动处理路径分隔符）
    Dim targetFilePath As String = Path.Combine(myDocsDirectory, "1.txt")

    ' 先检查文件是否存在，避免加载失败报错
    If File.Exists(targetFilePath) Then
        RichTextBox1.LoadFile(targetFilePath, RichTextBoxStreamType.PlainText)
        ' 加载完成后弹出提示
        MessageBox.Show("文件加载完成")
    Else
        MessageBox.Show("未在「我的文档」目录下找到1.txt文件")
    End If
End Sub

关键说明： #

• My.Computer.FileSystem.SpecialDirectories.MyDocuments是VB.NET内置的属性，直接调用就能拿到当前用户「我的文档」的真实路径，不能把它放在字符串引号里。
• 使用Path.Combine拼接路径和文件名，能自动适配Windows系统的路径分隔符，避免手动拼接时出现的格式错误。
• 增加File.Exists的判断，可以提前处理文件不存在的情况，给用户明确的提示。

内容的提问来源于stack exchange，提问作者Miłosz Szul