如何在Visual Basic .NET Forms中创建带自定义后缀、图标及描述的专属文件类型

你已实现的文件读写逻辑无需修改，以下两种方案均基于VB.NET实现，不需要用到C#/C++语言，按需选择即可。

前置准备 #

• 准备多尺寸的专属ico图标文件（建议包含1616、3232、48*48三种尺寸，适配资源管理器不同视图下的显示效果）

方案1：通过安装项目自动注册（适合正式发布场景） #

这种方式用户安装程序时自动完成关联，卸载时自动删除关联，不需要额外写业务代码，操作步骤如下：

• 如果你的Visual Studio没有安装安装项目组件，先打开Visual Studio Installer，安装「Microsoft Visual Studio Installer Projects」扩展
• 在你现有的VB.NET解决方案上右键→「添加」→「新建项目」→选择「安装项目」创建安装配置
• 打开安装项目的「文件系统」编辑器，右键「目标计算机上的文件系统」→「添加特殊文件夹」→「用户的应用程序文件夹」，将你的项目生成的exe程序、准备好的ico图标文件都添加到这个文件夹中
• 右键安装项目→「视图」→「文件类型」，右键「目标计算机上的文件类型」→「添加文件类型」，按需求设置新文件类型的属性：
  • 名称：填写你想展示的文件类型描述，比如「自定义检查数据文件」
  • 扩展名：填写你的自定义后缀myextension（不需要加前缀的点）
  • 命令：选择刚才添加到应用程序文件夹中的你的exe程序，用户双击对应文件时会自动启动你的程序打开
  • 图标：选择你刚才添加的专属ico文件
• 生成安装包后，用户运行安装程序即可自动完成文件关联、图标和描述的注册。

方案2：代码动态注册（适合调试或免安装场景） #

这种方式通过操作注册表实现关联，需要程序以管理员权限运行，代码如下：

首先导入命名空间：

Imports Microsoft.Win32

注册自定义文件类型的方法 #

Public Sub RegisterCustomFileType()
    ' 按需修改以下配置项
    Dim extension As String = ".myextension" ' 自定义后缀，需要加前缀点
    Dim progId As String = "MyApp.MyExtensionFile" ' 自定义唯一程序ID，不要和其他软件重复
    Dim fileDescription As String = "自定义检查数据文件" ' 文件类型展示描述
    Dim iconPath As String = Application.StartupPath & "\custom.ico" ' 你的ico文件的绝对路径
    Dim appOpenCommand As String = $"""{Application.ExecutablePath}"" ""%1""" ' 关联的打开程序，%1会自动替换为被双击的文件路径

    Try
        ' 注册后缀名和程序ID的关联
        Using extKey As RegistryKey = Registry.ClassesRoot.CreateSubKey(extension)
            extKey.SetValue("", progId)
        End Using

        ' 注册程序ID对应的配置
        Using progKey As RegistryKey = Registry.ClassesRoot.CreateSubKey(progId)
            progKey.SetValue("", fileDescription)
            ' 设置文件图标
            Using iconKey As RegistryKey = progKey.CreateSubKey("DefaultIcon")
                iconKey.SetValue("", $"{iconPath},0")
            End Using
            ' 设置双击打开的命令
            Using commandKey As RegistryKey = progKey.CreateSubKey("shell\open\command")
                commandKey.SetValue("", appOpenCommand)
            End Using
        End Using

        ' 刷新资源管理器让配置立即生效
        Shell("taskkill /f /im explorer.exe", AppWinStyle.Hide, True)
        Shell("explorer.exe", AppWinStyle.Hide)
        MessageBox.Show("自定义文件类型注册成功")
    Catch ex As Exception
        MessageBox.Show($"注册失败，请确认以管理员权限运行程序：{ex.Message}")
    End Try
End Sub

注销自定义文件类型的方法 #

如果需要取消关联，可以调用以下方法：

Public Sub UnregisterCustomFileType()
    Dim extension As String = ".myextension"
    Dim progId As String = "MyApp.MyExtensionFile"
    Try
        Registry.ClassesRoot.DeleteSubKeyTree(extension, False)
        Registry.ClassesRoot.DeleteSubKeyTree(progId, False)
        ' 刷新资源管理器
        Shell("taskkill /f /im explorer.exe", AppWinStyle.Hide, True)
        Shell("explorer.exe", AppWinStyle.Hide)
        MessageBox.Show("自定义文件类型注销成功")
    Catch ex As Exception
        MessageBox.Show($"注销失败，请确认以管理员权限运行程序：{ex.Message}")
    End Try
End Sub

额外适配：支持双击文件直接读取内容 #

完成关联后，要让你的程序能识别到用户双击打开的文件路径，只需要在主窗体的Load事件中读取命令行参数即可，示例代码：

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim cmdArgs As String() = Environment.GetCommandLineArgs()
    ' 如果有传入的文件参数
    If cmdArgs.Length > 1 Then
        Dim targetFilePath As String = cmdArgs(1)
        ' 这里直接调用你已有的文件读取逻辑，读取targetFilePath即可
    End If
End Sub

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