Here is some sample code to accomplish that:
<code>
Private Shared Sub SFXLicenseAgreementForum10445()
Dim zip As New ZipArchive(New DiskFile("D:\Forum10445\MySelfExtract.exe"))
Dim sfx As New XceedSfxPrefix(New DiskFile("C:\Program Files\Xceed Components\Bin\Sfx\xcdsfx32.bin"))
sfx.DefaultDestinationFolder = "D:\Dump\"
sfx.ExistingFileBehavior = ExistingFileBehavior.OverwriteAlways
sfx.DialogMessages(DialogMessages.License) = "This is the license agreement"
zip.BeginUpdate()
zip.SfxPrefix = sfx
zip.DefaultCompressionMethod = Xceed.Compression.CompressionMethod.BWT
zip.EndUpdate()
Dim zipFile As New DiskFile("D:\Test.txt")
zipFile.CopyTo(zip, True)
End Sub
</code>
Charles Bérubé-Rémillard
Technical Support
Xceed Software Inc.
