【求助】大神速来！！！！！！！！！

如果把路径补全能运行
但是我想自己输入路径
可以是全部路径

可以用一个按钮实现输入路径和打开文件，刚给你写了一下完整的代码，如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mypath As String = InputBox("输入完整路径")
If Len(mypath) = 0 Then
Exit Sub
End If
If System.IO.File.Exists(mypath) Then
System.Diagnostics.Process.Start(mypath)
Else
MessageBox.Show("未找到您输入路径的文件！")
End If
End Sub
希望能达到你的要求。

利用combobox选择内容
判断combobox内容
判断启动密码是否正确
比如说combobox选择了1
用文本框textbox输入密码
密码为123456
点击运行
判断密码是否正确
如果密码正确 运行程序A 路径（E：\A）
如果密码错误 弹出提示框提示密码错误
同理用combobox选择2
密码为asdfgh
求大神给代码 顺便给说明下代码的意思用处什么的 不甚感激

运行界面如下：

代码如下，请做参考：
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim str1 As String = InputBox("请输入密码") '提示框，输入密码
If Len(str1) = 0 Then
Exit Sub
End If
If str1 <> "123456" Then '密码为123456
MsgBox("密码错误！") '密码错误提示，密码错误则无法保存新路径
Exit Sub
End If
My.Settings.路径1 = TextBox1.Text '
My.Settings.路径2 = TextBox2.Text
My.Settings.Save() '如果密码正确，则将textbox里面的内容保存！咱们的VB程序，每次打开时像textbox里你输入的数字都会清空的，所以我们要想办法让他下次打开时依旧能显示之前我们设置的路径
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str1 As String = InputBox("请输入密码")
If Len(str1) = 0 Then '如果在提示框中点击“取消”按钮，则退出
Exit Sub
End If
If str1 <> "123456" Then '密码错误则退出，不会打开文件
MsgBox("密码错误！")
Exit Sub
End If
If RadioButton1.Checked = True Then '选择开启的路径
If TextBox1.Text = "" Then '判断文件路径是否有设置
MsgBox("路径不能为空!")
Exit Sub
End If
If System.IO.File.Exists(TextBox1.Text) Then '判断是否存在此文件
System.Diagnostics.Process.Start(TextBox1.Text) '打开文件
Else
MessageBox.Show("未找到您输入路径的文件！") '如果不存在此文件，则提示
Exit Sub
End If
ElseIf RadioButton2.Checked = True Then
If TextBox2.Text = "" Then
MsgBox("路径不能为空!")
Exit Sub
End If
If System.IO.File.Exists(TextBox2.Text) Then
System.Diagnostics.Process.Start(TextBox2.Text)
Else
MessageBox.Show("未找到您输入路径的文件！")
Exit Sub
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = My.Settings.路径1 '关闭后，下次开启时能让textbox显示我们之前保存的路径
TextBox2.Text = My.Settings.路径2
End Sub
End Class

你们这样挖坟真的好么