수다닷컴

지금 프로그램을 실행시키면 DIr함수 이벤트가 먼저 진행이 됩니다... 이 DIr 함수 이벤트를 클릭만 하게 해서 진행하게 할려면 어떻게 해야되나요?..;;

Private Sub Command1_Click()
Call Form_Load
End Sub

Private Sub Form_Load()
If Len(Dir(C:\Program Files\Warcraft III\Frozen Throne.exe)) Or Len(Dir(C:\Warcraft III\Frozen Throne.exe)) 0 Then
MsgBox C드라이브에 워크래프트가 깔려 있습니다.
ElseIf Len(Dir(D\Program Files\Warcraft III\Frozen Throne.exe)) Or Len(Dir(D\Warcraft |||\Frozen Throne.exe)) 0 Then
MsgBox D드라이브에 워크래프트가 깔려 있습니다.
Else
MsgBox 워크래프트가 다른곳에 설치 되어 있거나 설치가 되어 있지 않습니다.
End If
End Sub

신청하기