vb.net 双击打开文件 获取文件名

'Command() = My.Application.CommandLineArgs

Dim FileName As String = "" '接收的文件名
                    If My.Application.CommandLineArgs().Count <> 0 Then
                        FileName = My.Application.CommandLineArgs(0)
                    End If
                    Dim s As String = FileName

                    msgbox(s)

vb.net 双击打开文件 获取文件名 文件关联类

注册表 HKEY_CLASSES_ROOT：C:debugaa.exe %1