수다닷컴

오류에 대하여 질문하신다면, 어느 부분에서 어떤 내용의 오류가 나는지를 써주세요.
Option Explicit
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 Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Private Function DownloadFileFromWeb(sSourceUrl As String, sLocalFile As String) As Boolean
DownloadFileFromWeb = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
Private Sub Command1_Click()
DownloadFileFromWeb [닷홈주소. jar파일], Environ(appdata) & \.minecraft\bin\minecraft.jar
MsgBox 다운중...
Form2.Show
End Sub

[닷홈주소. jar]에 닷홈주소넣고 닷홈에 파일넣엇는데도 파일이 다운이안되네여뭐가 틀린거죠?
[] 구분하기위해 넣은거입니다.실제소스에 업성요

신청하기