수다닷컴

Public Class Form6
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Dir$(Minecraft_Server_1.2.5.exe) Then Shell(Minecraft_Server_1.2.5.exe) Else MsgBox(Minecraft_Server_1.2.5가 존재하지 않습니다., vbCritical, 알림) End If End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Dir$(Minecraft_Server_1.3.2.exe) Then Shell(Minecraft_Server_1.3.2.exe) Else MsgBox(Minecraft_Server_1.3.2가 존재하지 않습니다., vbCritical, 알림) End If End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Dir$(Minecraft_Server_1.4.2.exe) Then Shell(Minecraft_Server_1.4.2.exe) Else MsgBox(Minecraft_Server_1.4.2가 존재하지 않습니다., vbCritical, 알림) End If End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Dir$(Minecraft_Server_1.4.5.exe) Then Shell(Minecraft_Server_1.4.5.exe) Else MsgBox(Minecraft_Server_1.4.5가 존재하지 않습니다., vbCritical, 알림) End If End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If Dir$(Minecraft_Server_1.4.6.exe) Then Shell(Minecraft_Server_1.4.6.exe) Else MsgBox(Minecraft_Server_1.4.6가 존재하지 않습니다., vbCritical, 알림) End If End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click If Dir$(Minecraft_Server_1.4.7.exe) Then Shell(Minecraft_Server_1.4.7.exe) Else MsgBox(Minecraft_Server_1.4.7가 존재하지 않습니다., vbCritical, 알림) End If End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If Dir$(Minecraft_Server_1.5.exe) Then Shell(Minecraft_Server_1.5.exe) Else MsgBox(Minecraft_Server_1.5가 존재하지 않습니다., vbCritical, 알림) End If End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click If Dir$(Minecraft_Server_1.5.1.exe) Then Shell(Minecraft_Server_1.5.1.exe) Else MsgBox(Minecraft_Server_1.5.1가 존재하지 않습니다., vbCritical, 알림) End If End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click If Dir$(Minecraft_Server_1.5.2.exe) Then Shell(Minecraft_Server_1.5.2.exe) Else MsgBox(Minecraft_Server_1.5.2가 존재하지 않습니다., vbCritical, 알림) End If End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click If Dir$(Minecraft_Server_1.6.1.exe) Then Shell(Minecraft_Server_1.6.1.exe) Else MsgBox(Minecraft_Server_1.6.1가 존재하지 않습니다., vbCritical, 알림) End If End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click If Dir$(Minecraft_Server_1.6.2.exe) Then Shell(Minecraft_Server_1.6.2.exe) Else MsgBox(Minecraft_Server_1.6.2가 존재하지 않습니다., vbCritical, 알림) End If End SubEnd Class
이렇게하면 제일첫뻔째꺼는 되는데...
두번째꺼부터는 절때되지않더라구요....
어떻게하면 다른것들도 다되는지...

신청하기