Imports Shell32
Imports System.IO
 
Public Class Zippy
 
    Public Sub unzip(ByVal sZipFile As String, ByVal sDestinationDir As String)
 
        Dim Shell As Shell32.IShellDispatch2
        Dim ShellFolder As Shell32.Folder
 
        If File.Exists(sZipFile) Then
            Shell = CType(CreateObject("Shell.Application"), IShellDispatch2)
 
            If Not Directory.Exists(sDestinationDir) Then
                Directory.CreateDirectory(sDestinationDir)
            End If
 
            ShellFolder = Shell.NameSpace(sDestinationDir)
 
            If ShellFolder IsNot Nothing Then
                ShellFolder.CopyHere(Shell.NameSpace(sZipFile).Items)
            End If
        End If
 
    End Sub
 
End Class

-----

-.-