Create a .zip, clearing the archive attribute of each file zipped (i.e. Incremental Backup).

How to create a .zip archive such that each file zipped will have it's archive file attribute cleared.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$zip = new chilkat::CkZip();

#  Any string unlocks the component for the 1st 30-days.
$success = $zip->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

$success = $zip->NewZip("test.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  Tell the component to clear each file's archive attribute
#  when zipping.
$zip->put_ClearArchiveAttribute(1);

#  Append a directory tree.
#  Notice that the archiveOnly flag is set to true.  This
#  means that only files with the "File is ready for archiving" bit
#  set will be included.  (In Windows Explorer, right-click a file
#  and select Properties.  Then click the Advanced button.  You'll
#  see the "File is ready for archiving" checkbox.
#  This becomes automatically checked whenever a file is modified (or created).
#  The AppendFilesEx method will only add files ready for
#  archiving, and the WriteZipAndClose method will clear the
#  archive attribute for each file zipped.  The result is that
#  each time you run this program, only the modified files are zipped.
$recurse = 1;
$archiveOnly = 1;
$includeHidden = 1;
$includeSystem = 1;
$saveExtraPath = 0;
$zip->AppendFilesEx("c:/temp/abc123/*",$recurse,$saveExtraPath,$archiveOnly,$includeHidden,$includeSystem);

$success = $zip->WriteZipAndClose();
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

print "Zip Created!" . "\n";