(VB.NET) Create Self-Extracting Executable (Windows-only)

Demonstrates how to create a Windows self-extracting EXE.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

' AbortCheck callback method.
Private Sub zip_OnAbortCheck(sender As Object, args As Chilkat.AbortCheckEventArgs) Handles zip.OnAbortCheck

        
End Sub

' PercentDone callback method.
Private Sub zip_OnPercentDone(sender As Object, args As Chilkat.PercentDoneEventArgs) Handles zip.OnPercentDone

    Dim percentDone As Integer = args.PercentDone
        Debug.WriteLine("Percent Done: " & percentDone)
    ' Explicitly abort at 25% or greater.
    ' Remove this to allow for the HTTP download to run to completion.
    If (percentDone > 25) Then
        args.Abort = True
    End If
End Sub

' ProgressInfo callback method.
Private Sub zip_OnProgressInfo(sender As Object, args As Chilkat.ProgressInfoEventArgs) Handles zip.OnProgressInfo

    Dim name As String = args.Name
    Dim value As String = args.Value
        Debug.WriteLine(name & ": " & value)
End Sub

private Sub ChilkatExample()

    ' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.










Dim success As Boolean

Dim WithEvents zip As New Chilkat.Zip

' Initialize the zip object.  Because we're creating
' a self-extracting EXE in this example, the filename
' passed to NewZip will never actually be created.
success = zip.NewZip("notUsed.zip")
If (success <> True) Then
    Debug.WriteLine(zip.LastErrorText)
    Exit Sub
End If



' Append a directory tree.  The AppendFiles does
' not read the file contents or append them to the zip
' object in memory.  It simply appends references
' to the files so that when WriteExe (or WriteZipAndClose,
' or WriteZip, etc.) is called, the files are compressed
' and added to the archive.
Dim recurse As Boolean = True
zip.AppendFiles("c:/temp/a/*",recurse)

' Write "sfx.exe"
Dim success As Boolean = zip.WriteExe("c:/temp/sfx.exe")
If (success <> True) Then
    Debug.WriteLine(zip.LastErrorText)
    Exit Sub
End If

End Sub