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

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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

set zip = CreateObject("Chilkat.Zip2")

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

success = zip.NewZip("test.zip")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

'  Tell the component to clear each file's archive attribute
'  when zipping.
zip.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) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

MsgBox "Zip Created!"