SevenZipArchiver Class

Public NotInheritable Class SevenZipArchiver
	Inherits Archiver

Dim instance As SevenZipArchiver

public ref class SevenZipArchiver sealed : public Archiver

[<SealedAttribute>]
type SevenZipArchiver = 
    class
        inherit Archiver
    end

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

Public Class Form1 : Inherits Form

    Friend WithEvents SevenZip As New SevenZipArchiver(".\7z64.dll")

    Private Sub Test() Handles MyBase.Shown

        ' Build a compressed file.
        SevenZip.Build("C:\Source Folder", "C:\File.7z", CompressionMethod.Lzma2, CompressionLevel.Normal)
        ' Add files into the compressed file.
        SevenZip.Add({"C:\File1.ext", "C:\File2.ext"}, "C:\File.7z", CompressionMethod.Lzma2, CompressionLevel.Normal)

        ' Build a multi-volume compressed file.
        SevenZip.Build("C:\Source Folder", "C:\Multi file.7z", CompressionMethod.Lzma2, CompressionLevel.Normal, 10000000)

        ' Build a SFX file.
        SevenZip.BuildSfx("C:\Source Folder", "C:\File.exe", SevenZipSharpSfxModule.WinExe, CompressionMethod.Lzma2, CompressionLevel.Normal)

        ' Extract the compressed files.
        SevenZip.Extract("C:\File.7z", "C:\Extracted")
        SevenZip.Extract("C:\Multi file.7z.001", "C:\Extracted Multi")
        SevenZip.Extract("C:\File.exe", "C:\Extracted SFX")

    End Sub

    Public Sub SevenZip_CompressionProgressChanged(ByVal sender As Object, ByVal e As SevenZip.ProgressEventArgs) _
    Handles SevenZip.CompressionProgressChanged

        Console.WriteLine(String.Format("Percent compressed: {0}%", e.PercentDone))

    End Sub

    Public Sub SevenZip_ExtractionProgressChanged(ByVal sender As Object, ByVal e As SevenZip.ProgressEventArgs) _
    Handles SevenZip.ExtractionProgressChanged

        Console.WriteLine(String.Format("Percent extracted: {0}%", e.PercentDone))

    End Sub

    Public Sub SevenZip_SfxCreated(ByVal sender As Object, ByVal e As String) _
    Handles SevenZip.SfxCreated

        Console.WriteLine(String.Format("SFX created: {0}", e))

    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.