Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Dir("C:\Program Files\plaync\Lineage\Lineage\freejoin1.exe") = Dir("C:\Program Files\plaync\Lineage\Lineage\freejoin1.exe") Then
            Shell("C:\Program Files\plaync\Lineage\Lineage\freejoin1.exe", vbNormalFocus)

        ElseIf Dir("C:\Program Files (x86)\plaync\Lineage\Lineage\freejoin2.exe") = Dir("C:\Program Files (x86)\plaync\Lineage\Lineage\freejoin2.exe") Then
            Shell("C:\Program Files (x86)\plaync\Lineage\Lineage\freejoin2.exe", vbNormalFocus)

        ElseIf Dir("C:\Program Files (x86)\Lineage\freejoin1.exe") = Dir("C:\Program Files (x86)\Lineage\freejoin1.exe") Then
            Shell("C:\Program Files (x86)\Lineage\freejoin1.exe", vbNormalFocus)

        ElseIf Dir("C:\Program Files (x86)\Lineage\freejoin2.exe") = Dir("C:\Program Files (x86)\Lineage\freejoin2.exe") Then
            Shell("C:\Program Files (x86)\Lineage\freejoin2.exe", vbNormalFocus)

        ElseIf Dir("C:\Program Files\Lineage\freejoin2.exe") = Dir("C:\Program Files\Lineage\freejoin2.exe") Then
            Shell("C:\Program Files\Lineage\freejoin2.exe", vbNormalFocus)

        ElseIf Dir("C:\Program Files\Lineage\freejoin1.exe") = Dir("C:\Program Files\Lineage\freejoin1.exe") Then
            Shell("C:\Program Files\Lineage\freejoin1.exe", vbNormalFocus)

        ElseIf Dir("C:\Program Files\plaync\Lineage\Lineage\freejoin1.exe") = Dir("C:\Program Files\plaync\Lineage\Lineage\freejoin1.exe") Then
            Shell("C:\Program Files\plaync\Lineage\Lineage\freejoin1.exe", vbNormalFocus)

        ElseIf Dir("C:\Program Files\plaync\Lineage\Lineage\freejoin2.exe") = ("C:\Program Files\plaync\Lineage\Lineage\freejoin2.exe") Then
            Shell("C:\Program Files\plaync\Lineage\Lineage\freejoin2.exe", vbNormalFocus)
        Else

            MsgBox("버전이 맞지않습니다")
        End If
    End Sub



위에보시면...

If Dir("C:\Program Files\plaync\Lineage\Lineage\freejoin1.exe") = Dir("C:\Program Files\plaync\Lineage\Lineage\freejoin1.exe") Then
            Shell("C:\Program Files\plaync\Lineage\Lineage\freejoin1.exe", vbNormalFocus)

만약 파일이 맞다면 아래의 파일 실행..

파일이 없다면

ElseIf Dir("C:\Program Files (x86)\plaync\Lineage\Lineage\freejoin2.exe") = Dir("C:\Program Files (x86)\plaync\Lineage\Lineage\freejoin2.exe") Then
            Shell("C:\Program Files (x86)\plaync\Lineage\Lineage\freejoin2.exe", vbNormalFocus)

2번째 파일을 찾는건데요..

첫번째 파일이 없으면 그냥 종료가 되네요..

어떻게 하면될까요 ㅠ.ㅠ 고수님들..