华为g9原装耳机多少钱:VB高手进！求学

我在做一个查找目录并运行的代码
代码写出来了
代码如下

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5

Private Sub Command1_Click()
With CommonDialog1
.Filter = "全部文件(*.*)|*.*"
.DialogTitle = "选择文件,查看文件完整路径"
.DefaultExt = "*.*"
.InitDir = "c:\"
.ShowOpen
If .FileName <> "" Then
Label1.Caption = .FileName
End If
End With
End Sub

Private Sub Command2_Click()
Call ShellExecute(Me.hwnd, "Open", Label1.Caption, vbNullString, vbNullString, SW_SHOW)
End Sub

我想要的效果：怎么样才能验证目录是否是正确目录？
我只想要他针对 QQgame.exe 才能执行如果选的不是QQgame.exe 的话 就提示 “你的目录选错了” 如何实现？
能不能详细点