파일존재 확인여부에서 여러개사용시
이뻐
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
이렇게하면 제일첫뻔째꺼는 되는데...
두번째꺼부터는 절때되지않더라구요....
어떻게하면 다른것들도 다되는지...
-
아이
아 ㅋㅋ 그러네요 ㅎㅎ 감사합니다
-
이루리라
\\
이 다른건 안쓴거같아요 -
일진누나
혼자해라
-
구슬
저소스는
6.0하고 동일험ㅇㅇ
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2676093 | 현재프로그램 파일이름을 추출하는걸알고싶습니다 (1) | 도1도캣 | 2024-11-24 |
| 2676066 | exe를 소스로 만드는법좀.. (3) | 회전력 | 2024-11-23 |
| 2676034 | 이런 창은 어떻게 지우나요? | 수련 | 2024-11-23 |
| 2676006 | 질문하나더~ | 찬바리 | 2024-11-23 |
| 2675930 | 작업관리자 차단 | 별빛 | 2024-11-22 |
| 2675901 | 숫자를 제외한 문자를 어떻게 나타내야될까요? | 진나 | 2024-11-22 |
| 2675871 | 거의마지막질문인데요 | 아메 | 2024-11-22 |
| 2675846 | 제가 완성햇는데요 ㅎ; | 거늘 | 2024-11-21 |
| 2675824 | 타이머. 프로그래스바 코드 질문입니다. (10) | 빛글 | 2024-11-21 |
| 2675798 | 이걸 머라고해야 할지모르지만 질문합니다 (2) | 리라 | 2024-11-21 |
| 2675772 | 구구단 함수 질문이요~! (1) | 테이 | 2024-11-21 |
| 2675746 | exe저장시 런타임53 에러 | 아픔이보여 | 2024-11-20 |
| 2675718 | ocx 설치법 | 달달한캔디 | 2024-11-20 |
| 2675630 | ""안에 큰따음표 넣기. | 터전 | 2024-11-19 |
| 2675519 | 컴파일 오류 ?? | 슬아라 | 2024-11-18 |
| 2675492 | 비베 수다 사이트채팅 접속방법 | 마법 | 2024-11-18 |
| 2675463 | ㅠㅠ;; | 지은 | 2024-11-18 |
| 2675434 | 타이머로 라벨바꾸는거 (2) | 대나무 | 2024-11-18 |
| 2675386 | 선형보간법 문의 | 나길 | 2024-11-17 |
| 2675328 | 프로세스 강제종료하는방법좀... (1) | 슬아라 | 2024-11-17 |