如何实现VB.NET中禁止覆盖现有文件的文本保存功能？

Imports System.IO

Private Sub SaveFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveFile.Click
    Using sfd As New SaveFileDialog()
        sfd.Filter = "Text Files (*.txt)|*.txt"
        sfd.OverwritePrompt = True ' 保留系统默认覆盖提示，同时我们会做额外强制检查
        
        If sfd.ShowDialog() = DialogResult.OK Then
            ' 强制检查目标文件是否已存在
            If File.Exists(sfd.FileName) Then
                MessageBox.Show(
                    Me, "无法保存！该文件已存在，禁止覆盖现有文件，请创建新文件保存内容。",
                    "保存错误", MessageBoxButtons.OK, MessageBoxIcon.Exclamation
                )
            Else
                ' 仅当文件不存在时执行写入操作
                File.WriteAllText(sfd.FileName, txtdisplay1.Text)
                MessageBox.Show("内容已成功保存到新文件！", "保存成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
    End Using
End Sub

关键修改说明 #

• 移除冗余的lastSaveFileName变量和分支判断：原代码依赖历史文件名的逻辑存在漏洞，现在每次保存直接处理用户当前选择的文件，逻辑更可靠。
• 合并统一保存流程：将原有的两个文件选择函数整合成单一流程，避免分支混乱。
• 强制文件存在性校验：无论用户是否在对话框中点击“覆盖”确认，都会主动检查目标文件状态，绝对禁止覆盖任何现有文件。
• 优化提示信息：明确告知用户禁止覆盖的规则，引导用户创建新文件。

原代码误覆盖问题的原因 #

1. 原代码依赖lastSaveFileName的分支逻辑存在缺陷：首次保存后该变量被赋值，后续操作会错误进入禁止分支，无法正确处理用户新选择的文件。
2. 没有在用户选择文件后即时校验文件状态，而是依赖历史记录判断，导致逻辑错位。

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