Zipping & Unzipping Using Shell32.dll

[Emcrank]

Ok i didn't like the idea of having to have a 3rd party application stuck in my apps directory so i asked for help on how to do it with the windows built in Shell32.dll. This is what i found out.
To use this in your own project you need to make a reference to C:\Windows\System32\shell32.dll

'Remeber to create a reference to C:\Windows\System32\shell32.dll
'Project > Add Reference > Browse and then navigate to the Windows\System32\shell32.dll.
    Private Sub ExtractZip(ByVal zipFile As String, ByVal destination As String)
        Dim shell As Shell32.Shell = New Shell32.Shell
        shell.NameSpace(destination).CopyHere(shell.NameSpace(zipFile).Items, Nothing)
        shell = Nothing
    End Sub
 
    Public Sub ZipFile(ByVal strFileToZip, ByVal strTargetZip)
        CreateEmptyZip(strTargetZip)
        Try
            CreateObject("Shell.Application").Namespace(strTargetZip).CopyHere(strFileToZip)
        Catch ex As Exception
 
        End Try
    End Sub
 
    Private Sub CreateEmptyZip(ByVal sPath As String)
        Dim strZIPHeader As String
 
        strZIPHeader = Chr(80) & Chr(75) & Chr(5) & Chr(6) & String.Format(18, 0)
        CreateObject("Scripting.FileSystemObject").CreateTextFile(sPath).Write(strZIPHeader)
 
    End Sub