Dim sfx As New XceedSfxPrefix(New DiskFile("C:\Xceed Components\Sfx\xcdsfx32.bin"))
sfx.DialogStrings(DialogStrings.Title) = "Welcome to Xceed Zip for .NET!"
sfx.DefaultDestinationFolder = "C:\"
sfx.ExistingFileBehavior = ExistingFileBehavior.OverwriteOlderOnly
QuickZip.Zip("a:\sfx.exe", String.Empty, True, True, False, sfx, _
New QuickZip.DiskRequiredCallback(AddressOf Me.QuickDiskRequired), _
Nothing, "d:\file.txt")
' This method will handle the DiskRequired events that are raised when creating
' spanned or split zip files.
Private Function QuickDiskRequired(ByVal zipFile As String, ByVal diskNumber As Integer, _
ByVal userData As Object) As Boolean
If (MessageBox.Show("Disk #" + diskNumber.ToString() + " is required.", "Disk Required", _
MessageBoxButtons.OKCancel) = DialogResult.OK) Then
Return True
Else
Return False
End If
End Function