UnZip - Info-Zip

Hello

I have an app that I'm trying to write code for an autoupdate feature. I have the part done that goes and gets the file from the web page. But the file is zipped so I now need to unzip it. I want it to be fully automatic and all the user sees is the progress bar. I downloaded the Info-Zip dll, modules, classes and code. This is how they say is should be set up to use for unzipping:

Code:

---

Private WithEvents m_cUnzip As cUnzip

    Dim sFIle As String, sFolder As String
   
    sFIle = App.Path & "\Databases\" & DBString
    sFolder = App.Path & "\Databases\"
   
      ' Set the zip file:
    m_cUnzip.ZipFile = sFIle


    ' Set the base folder to unzip to:
    m_cUnzip.UnzipFolder = sFolder

    ' Unzip the file!
    m_cUnzip.Unzip

---

But when I run it I get:
Object variable or With block variable not set (Error 91)
Debug points to the Line

Code:

---

m_cUnzip.ZipFile = sFIle

---

I've tried some diffferent set statements but I can't get it to work.
Any Ideas?

Thanks

David

tried this?

Private WithEvents m_cUnzip As New cUnzip

Try this sample.

http://www.mentalis.org/vbexamples/v...ategory=SOURCE

Personally, I'd recommend cab10.dll, which you can get info on here

Dont shoot me ... its just easier, thats all. And win95 compatible.