VB.NET实现TextBox文本追加保存至记事本的代码求助

核心实现思路 #

使用.NET框架的File.AppendAllText方法即可完成需求——该方法会自动判断目标文件是否存在：不存在则创建新文件写入内容，存在则直接在文件末尾追加内容。

完整代码示例 #

假设你的窗体上有：

• 一个用于显示输入内容的TextBox控件，命名为txtContent
• 一个触发保存操作的Button控件，命名为btnSave

以下是按钮点击事件的实现代码：

' 导入必要的命名空间
Imports System.IO

Public Class Form1
    ' 保存按钮点击事件
    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        ' 定义保存路径，示例为桌面的"记录.txt"，可自行修改
        Dim savePath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "记录.txt")

        Try
            ' 追加TextBox内容，添加换行符避免内容连续拼接
            File.AppendAllText(savePath, txtContent.Text & Environment.NewLine)
            MessageBox.Show("保存成功！")
        Catch ex As Exception
            MessageBox.Show($"保存失败：{ex.Message}")
        End Try
    End Sub
End Class

关键说明 #

• Path.Combine用于安全拼接路径，避免手动拼接时出现路径分隔符错误
• Environment.SpecialFolder.Desktop获取系统桌面路径，可替换为任意合法本地路径
• Environment.NewLine会根据系统自动适配换行符（Windows为\r\n，Linux为\n）
• 异常处理可捕获权限不足、磁盘空间不足等保存错误

内容的提问来源于stack exchange，提问作者Newbie TJ