Как программно распаковать Zip файл

    Private Sub Compress(ByVal fi As FileInfo)
        Using inFile As FileStream = fi.OpenRead()
            If (File.GetAttributes(fi.FullName) And FileAttributes.Hidden) _
                <> FileAttributes.Hidden And fi.Extension <> ".gz" Then
                Using outFile As FileStream = File.Create(fi.FullName + ".gz")
                    Using Compress As GZipStream = New GZipStream(outFile, CompressionMode.Compress)
                        inFile.CopyTo(Compress)
                        Console.WriteLine("Compressed {0} from {1} to {2} bytes.", _
                                          fi.Name, fi.Length.ToString(), outFile.Length.ToString())
 
                    End Using
                End Using
            End If
        End Using
    End Sub
 
    Private Sub Decompress(ByVal fi As FileInfo)
        Using inFile As FileStream = fi.OpenRead()
            Dim curFile As String = fi.FullName
            Dim origName = curFile.Remove(curFile.Length - fi.Extension.Length)
            Using outFile As FileStream = File.Create(origName)
                Using Decompress As GZipStream = New GZipStream(inFile, CompressionMode.Decompress)
                    'Decompress.CopyTo(outFile)
                    Console.WriteLine("Decompressed: {0}", fi.Name)
                End Using
            End Using
        End Using
    End Sub
 
 
    Sub Main2()
        Dim dirpath As String = "D:\нюкниги\нюкниги"
        Dim di As DirectoryInfo = New DirectoryInfo(dirpath)
        For Each fi As FileInfo In di.GetFiles()
            Compress(fi)
        Next
    End Sub
 
    Sub Main()
        Dim dirpath As String = "D:\нюкниги\нюкниги"
        Dim di As DirectoryInfo = New DirectoryInfo(dirpath)
        For Each fi As FileInfo In di.GetFiles("*.gz")
            Decompress(fi)
        Next
    End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
 
            Dim fsNoCompress As New FileStream("c:\nocompress", FileMode.Create)
            Dim rNoCompress As New BinaryWriter(fsNoCompress)
            Dim fsCompress As New FileStream("c:\compress", FileMode.Create)
            Dim CompressStream As New Compression.GZipStream(fsCompress, Compression.CompressionMode.Compress)
            Dim rCompress As New BinaryWriter(CompressStream)
            For i As Integer = 1 To 10000
                Dim RandomString As String = "adsfadfadsf"
                rNoCompress.Write(RandomString)
                rCompress.Write(RandomString)
            Next
            rNoCompress.Close()
            fsNoCompress.Close()
 
            rCompress.Close()
            fsCompress.Close()
 
            Debug.WriteLine("Compressed data from " & _
              My.Computer.FileSystem.GetFileInfo("c:\nocompress").Length & _
              " bytes to " & _
              My.Computer.FileSystem.GetFileInfo("c:\compress").Length & _
              " bytes.")
 
            Dim fsRead As New FileStream("c:\compress", FileMode.Open)
            Dim DecompressStream As New Compression.GZipStream(fsRead, Compression.CompressionMode.Decompress)
            'Dim r As New BinaryReader(DecompressStream)
            Dim r As New IO.StreamReader(DecompressStream)
            Debug.WriteLine("The compressed data looks like this: " & r.ReadToEnd)
            r.Close()
            fsRead.Close()
 
 
        Catch ex As Security.SecurityException
        Catch ex As AccessViolationException
 
        End Try
    End Sub

    Private Const FOF_MULTIDESTFILES As Int32 = 1               '
    Private Const FOF_CONFIRMMOUSE As Int32 = 2                 '
    Private Const FOF_SILENT As Int32 = 4                       'Не отображать диалоговое окно процесса.
    Private Const FOF_RENAMEONCOLLISION As Int32 = 8            'Дайть файлу новое имя при перемещать, копировать, переименовывать или операции, если файл с целевым именем уже существует.
    Private Const FOF_NOCONFIRMATION As Int32 = 16              'Ответ «Да для всех» для любого диалогового окна, которое отображается.
    Private Const FOF_WANTMAPPINGHANDLE As Int32 = 32           '
    Private Const FOF_ALLOWUNDO As Int32 = 64                   'Сохранить отменить информации, если это возможно.
    Private Const FOF_FILESONLY As Int32 = 128                  'Выполнять операции с файлами, только если шаблон имени файла (*.*) Не указан.
    Private Const FOF_SIMPLEPROGRESS As Int32 = 256             'Показать диалоговое окно хода, но не показывать имен файлов.
    Private Const FOF_NOCONFIRMMKDIR As Int32 = 512             'Не подтвердить создание нового каталога, если операция требует, чтобы быть создан.
    Private Const FOF_NOERRORUI As Int32 = 1024                 'Не отображать пользовательский интерфейс, если произошла ошибка.
    Private Const FOF_NOCOPYSECURITYATTRIBS As Int32 = 2048     'Версия 4.71. Не пытайтесь копировать атрибуты безопасности файлов.
    Private Const FOF_NORECURSION As Int32 = 4096               'Только работать в локальном каталоге. Не рекурсивно в подкаталогах.
    Private Const FOF_NO_CONNECTED_ELEMENTS As Int32 = 8192     'Версия 5.0. Не копируйте файлы, связанные группы. Только копировать указанные файлы.
    Private Const FOF_WANTNUKEWARNING As Int32 = 16384
 
    Private Sub Zip(ByVal Folder As String, ByVal ZipFile As String)
        Dim ZipHeader As Byte() = New Byte() {80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
        Dim fs As FileStream = File.Create(ZipFile)
        fs.Write(ZipHeader, 0, ZipHeader.Length)
        fs.Flush()
        fs.Close()
        fs = Nothing
        Dim sh As New Shell32.Shell()
        Dim input As Shell32.Folder = sh.NameSpace(Folder) 'Директория,которую хотим упаковать C:\2012
        Dim output As Shell32.Folder = sh.NameSpace(ZipFile) 'Адрес к архиву в который хотим упаковать C:\2012.zip
        Try
            output.CopyHere(input.Items, 4)
        Catch
            IO.File.Copy(Folder & "\" & IO.Path.GetDirectoryName(Folder), LibPath & "\!\" & IO.Path.GetFileName(Folder))
        End Try
    End Sub
 
    Private Function UnZip(ByVal ZipFile As String, Folder As String) As ArrayList
        Dim UnZipFiles() As IO.FileInfo
        Dim Tmp As New IO.DirectoryInfo(Folder)
        Dim Files As New ArrayList
        Call MakePath(Folder)
        Dim sh As New Shell32.Shell()
        Dim output As Shell32.Folder = sh.NameSpace(Folder) 'Директория в которую хотим распаковать
        Dim input As Shell32.Folder = sh.NameSpace(ZipFile) 'Адрес к архиву из которого всё будет извлечено d:\архив.zip
        output.CopyHere(input.Items, FOF_SILENT + FOF_NOERRORUI)
        UnZipFiles = Tmp.GetFiles("*.fb2*", IO.SearchOption.AllDirectories)
        For Each UnZipFile In UnZipFiles
            Files.Add(UnZipFile.FullName)
        Next
        Return Files
    End Function