Spoiler
Dim zip As New Chilkat.Zip
Dim success As Long
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
MsgBox(zip.LastErrorText)
Exit Sub
End If
success = zip.OpenZip("C:\Downloads\R4Original.zip")
If (success <> 1) Then
MsgBox(zip.LastErrorText)
Exit Sub
End If
Dim unzipCount As Long
unzipCount = zip.Unzip("C:/Downloads/R4Original")
If (unzipCount < 0) Then
MsgBox(zip.LastErrorText)
End If"Zip" is ambiguous in namespace "Chilkat".Anybody know (and can teach me) an alternative way to unzip files, or, can explain me how to fix this?
