ZipArchiver Class

Public NotInheritable Class ZipArchiver
	Implements IDisposable

Dim instance As ZipArchiver

public ref class ZipArchiver sealed : IDisposable

[<SealedAttribute>]
type ZipArchiver = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Public Class Form1 : Inherits Form

    Friend WithEvents Archiver As New ZipArchiver

    Private Sub Test() Handles MyBase.Shown

        ' Build a Zip file.
        Archiver.Compress("C:\Source Folder", "C:\File.zip", CompressionMethod.None, CompressionLevel.Default, "Password", EncryptionAlgorithm.WinZipAes256)

        ' Build a SFX file.
        Archiver.CompressSfx("C:\Source Folder", "C:\File.exe", CompressionMethod.None, CompressionLevel.Default,
                             extractionDirectory:=".\", silentExtraction:=True, overwriteFiles:=ExtractExistingFileAction.DoNotOverwrite,
                             deleteExtractedFilesAfterExtraction:=False, commandLineArgument:=Nothing,
                             icon:=Nothing, windowTitle:="SFX Widnow Title", windowStyle:=SelfExtractorFlavor.WinFormsApplication)

        Archiver.Extract("C:\file.zip", "C:\dfsfdfsdf", ExtractExistingFileAction.DoNotOverwrite, "Password")

    End Sub

    Public Sub Archiver_CompressionProgressChanged(ByVal sender As Object, ByVal e As SaveProgressEventArgs) _
    Handles Archiver.CompressionProgressChanged

        Select Case e.EventType

            Case ZipProgressEventType.Saving_Started
                Console.WriteLine(String.Format("Begin creating file: {0}", e.ArchiveName))

            Case ZipProgressEventType.Saving_BeforeWriteEntry
                Console.WriteLine(String.Format("Writing ({1}/{2}): {0}",
                                                e.CurrentEntry.FileName,
                                                (e.EntriesSaved + 1),
                                                e.EntriesTotal))

                ' ProgressBar2.Maximum = e.EntriesTotal       ' Count of total files to compress.
                ' ProgressBar2.Value   = (e.EntriesSaved + 1) ' Count of compressed files.

            Case ZipProgressEventType.Saving_EntryBytesRead
                ' ProgressBar1.Value = CType((e.BytesTransferred * 100) / e.TotalBytesToTransfer, Integer) ' Total Progress.

            Case ZipProgressEventType.Saving_Completed
                Console.WriteLine(String.Format("Compression done: {0}", e.ArchiveName))

            Case Else
                ' ...

        End Select

    End Sub

    Public Sub Archiver_ExtractionProgressChanged(ByVal sender As Object, ByVal e As ExtractProgressEventArgs) _
    Handles Archiver.ExtractionProgressChanged

        Dim zipFileCount As Integer = DirectCast(sender, ZipFile).Entries.Count
        Static extractedFileCount As Integer

        Select Case e.EventType

            Case ZipProgressEventType.Extracting_BeforeExtractEntry
                If (extractedFileCount = 0) Then
                    Console.WriteLine(String.Format("Begin extracting file: {0}", e.ArchiveName))
                End If

                extractedFileCount += 1
                Console.WriteLine(String.Format("Extracting ({1}/{2}): {0}", e.CurrentEntry.FileName, extractedFileCount, zipFileCount))

                ' ProgressBar1.Maximum = zipFileCount       ' Count of total files to uncompress
                ' ProgressBar1.Value   = extractedFileCount ' Count of uncompressed files

            Case ZipProgressEventType.Extracting_AfterExtractEntry
                If (extractedFileCount = zipFileCount) Then
                    Console.WriteLine(String.Format("Extraction done: {0}", e.ArchiveName))
                End If

            Case Else
                ' ...

        End Select

    End Sub

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.