'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:\debug\aa.exe %1