// -- Initialization code of window
GLOBAL
ArchiveName is string = "MyArchive"

// -- Click code on BTN_AddFile
// Initialization code
FileName is string
CreationErrorCode is int
AdditionErrorCode is int
EventNum is int

// Create an archive
CreationErrorCode = zipCreate(ArchiveName, "C:\MyDirectory\MyArchives\PdfArchive.wdz")

// Display an error message if the archive was not created
IF CreationErrorCode = 0 THEN
	// Select the file to add
	FileName = fSelect("", "", "File to add", ...
			   "File to compress" + TAB + "*.*", "*", fselOpen + fselExist)
	// Add the selected file to the archive
	AdditionErrorCode = zipAddFile(ArchiveName, FileName, zipNone, Compression_ProgressBar)
	// Display an error message if the file was not added
	IF AdditionErrorCode <> 0 THEN
		Error(zipMsgError(AdditionErrorCode))
	END
ELSE
	Error(zipMsgError(CreationErrorCode))
END


// Internal procedure used for the progress bar.
INTERNAL PROCEDURE Compression_ProgressBar(CurrentFile is string, Percentage is int)
	IF Percentage < 100 THEN
		ProgressBar(Percentage, 100, CurrentFile)
		// Refresh the window
		Multitask(-1)
	ELSE
		// The compression is over
		ProgressBar()
	END
END