VB.NET实现创建文本文件并追加内容的代码问题求助

原代码存在两个核心问题：

1. 未保存用户选择的文件路径，Button4中硬编码字符串"isave"作为文件路径，导致无法定位到正确文件
2. Button2直接使用WriteAllText写入内容，不符合“仅浏览创建文件，保存/追加由Button4负责”的需求

修正步骤与代码 #

1. 添加全局变量存储文件路径
   在窗体类的顶部定义变量，用于记录用户选择的Txt文件路径：

Private selectedFilePath As String = String.Empty

2. 修改Button2（浏览创建文件）
   仅负责让用户选择或创建Txt文件，不直接写入内容：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim saveDialog As New SaveFileDialog
    saveDialog.Filter = "Txt文件 (*.txt)|*.txt"
    saveDialog.FilterIndex = 1 ' 对应Filter中的第一个选项，索引从1开始
    saveDialog.RestoreDirectory = True
    saveDialog.OverwritePrompt = True ' 若文件已存在，提示是否覆盖

    If saveDialog.ShowDialog() = DialogResult.OK Then
        selectedFilePath = saveDialog.FileName
        ' 若文件不存在则创建空文件
        If Not IO.File.Exists(selectedFilePath) Then
            IO.File.Create(selectedFilePath).Close()
        End If
    End If
End Sub

3. 修改Button4（保存/追加内容）
   判断是否已选择文件路径，然后实现首次写入、非首次追加的逻辑（AppendAllText会自动处理：文件不存在则创建写入，存在则追加内容）：

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    ' 先检查是否已选择文件
    If String.IsNullOrEmpty(selectedFilePath) Then
        MessageBox.Show("请先通过Button2选择保存的Txt文件！")
        Return
    End If

    Dim content As String = TextBox1.Text
    ' 追加内容，首次写入时自动创建文件（若之前未创建）
    IO.File.AppendAllText(selectedFilePath, content & Environment.NewLine)
    MessageBox.Show("内容已保存/追加成功！")
End Sub

功能说明 #

• Button2：打开保存对话框，让用户选择或创建Txt文件，仅记录路径并确保文件存在
• Button4：点击时先检查是否已选文件，若已选则将TextBox1的内容追加到文件末尾（首次点击时相当于写入初始内容）
• 支持随时通过Button2更换保存文件路径，后续Button4会将内容追加到新选中的文件中

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