VB.NET修改OpenFileDialog所选文件扩展名为.txt未生效问题

你当前代码完全没有执行磁盘层面的文件重命名操作，只是修改了内存中OpenFileDialog对象存储的文件名字符串值，这个修改不会对实际存储在硬盘上的文件产生任何影响。
除此之外你的后缀替换逻辑还有两个隐患：

• 直接用Replace(".sym", ".txt")替换字符串无法精准匹配扩展名：如果文件所在路径的文件夹名、文件名非后缀部分包含.sym字符，会出现误替换，生成错误的文件路径。
• 把修改后的字符串赋值回sym.FileName是无效操作：OpenFileDialog在用户选完文件、ShowDialog()返回结果后，它的属性仅用来读取用户选择的结果，修改这个属性不会触发任何文件系统动作。

要真正把选中的.sym文件后缀改成.txt，需要调用IO类提供的文件移动/重命名方法，同时用官方提供的路径处理方法精准修改扩展名，不要手动做字符串替换。
首先在代码文件最顶部导入需要的命名空间：

Imports System.IO

按钮点击事件的修复后代码如下：

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    Dim sym As New OpenFileDialog()
    '配置文件选择对话框参数
    sym.Title = "Open File Dialog"
    sym.InitialDirectory = "C:\My Computer\Documents"
    sym.Filter = "Symbol files (*.sym*)|*.sym*"
    sym.FilterIndex = 1
    sym.RestoreDirectory = True

    If sym.ShowDialog() = DialogResult.OK Then
        Dim originalFilePath As String = sym.FileName
        SymTextSelection.Text = originalFilePath
        '精准生成后缀为.txt的新文件路径
        Dim newFilePath As String = Path.ChangeExtension(originalFilePath, ".txt")
        
        '校验文件状态后执行实际重命名
        If File.Exists(originalFilePath) AndAlso Not File.Exists(newFilePath) Then
            File.Move(originalFilePath, newFilePath)
            '如果需要界面展示修改后的路径，更新文本框内容即可
            SymTextSelection.Text = newFilePath
        End If
    End If
End Sub

补充说明：如果新路径下已经存在同名.txt文件，上述代码里的File.Move会直接抛出异常，你可以根据自己的业务需求，增加覆盖确认提示、自动给新文件加序号重命名等逻辑。

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