수다닷컴

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 = &H80000000Private 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 http://~~~~~~, c:\123.zip
Dim cgzip_ As Object
Set cgzip_ = CreateObject(cgziplibrary.cgunzipfiles)
cgzip_.ZipFileName = c:\123.zip
cgzip_.ExtractDir = Text1.Text & \
cgzip_.honordirectories = True
If cgzip_.Unzip 0 Then
MsgBox 압축을풀수가없습니다., , 오류
End If
Set cgzip_ = Nothing
End Sub

이거를 참조에서 CGZiplibrary.dll를 추가햇는데요
이걸 exe로 만들어서 다른컴퓨터에서 쓸려니까..
프로그램이 멈추면서 눌러두 팅팅팅
이런소리만 나네요...ㅠㅠ
어떻게하조?
오류에 대하여 질문하신다면, 어느 부분에서 어떤 내용의 오류가 나는지를 써주세요.

신청하기