还不行
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim args() = Environment.GetCommandLineArgs
If args.Length = 2 Then
Dim path As String = IO.Path.GetDirectoryName(args(0))
IO.File.WriteAllText(path & "/路径.txt", args(1), System.Text.Encoding.Default)
'Dim proc As New Process
'proc.StartInfo.FileName = path & "/2222.exe"
'proc.Start()
ElseIf args.Length = 1 Then
Dim path As String = IO.Path.GetDirectoryName(args(0))
IO.File.WriteAllText(path & "/路径.txt", "", System.Text.Encoding.Default)
MsgBox("测试")
'Dim proc As New Process
'proc.StartInfo.FileName = path & "/2222.exe"
'proc.Start()
End If
End Sub
设置好注册表,用后缀文件打开这个vs生成的exe,还是打开对话框“测试”,路径.txt为空
是不是vs里面还有设置什么
[此贴子已经被作者于2016/3/3 15:13:49编辑过]