수다닷컴

main.exe가 없을때는 main.exe를 다운을 잘 하건만 nwitm7.kom이 없을때는 파일 낫 파운드라는 런타임 에러가 뜨네요...첨부파일 보시면서 소스에러좀 확인해주세요...정말 이해가 안가요 ㄷㄷㄷ오류나는 일부 소스 :Option Explicit
Private Declare Function GetTickCount Lib kernel32 () As Long
Private Declare Function URLDownloadToFile Lib urlmon Alias URLDownloadToFileA (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Function Download(DownLoadURL As String, DownLoadPath As String) As Boolean
Download = URLDownloadToFile(0&, DownLoadURL, DownLoadPath, &H10, 0&) = 0
End Function 이게 다운로드 함수입니다. 그냥 위에 몇줄 전체를 불러왔죠 ㅇ? 그리고 Private Sub Command1_Click()
If Len(Dir(App.Path & \main.exe)) Then
Else
Download http://file.gomcommunity.wo.tc/BACKBING/main.exe, App.Path & \main.exe
DoEvents
End If
If Len(Dir(App.Path & \Texture/nwitm7.kom)) Then
Else
Download http://file.gomcommunity.wo.tc/BACKBING/Texture/nwitm7.kom, App.Path & Texture/nwitm7.kom
DoEvents
End If

신청하기