Add File to Existing Zip

Add a file to an existing .zip archive.

Download Perl Programming Example Scripts

# file: AddToZip.pl

use chilkat;

# Add a single file to an existing zip.
$zip = new chilkat::CkZip();
$zip->UnlockComponent("anything for 30-day trial");

# Open an already-existing zip
$success = $zip->OpenZip("exampleData.zip");
if ($success)
{
	# Append an additional file to the $zip->
	$success = $zip->AppendOneFileOrDir("blowfishCBC.pl");
	if ($success) 
	{
		# Write the $zip->
		$zip->WriteZip();
	}
	else
	{
		# Failed to append the file.
		$zip->SaveLastError("appendError.txt")
	}	
}
else
{
	# Failed to open the .zip archive.
	$zip->SaveLastError("openZipError.txt");
}