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.

Download Chilkat Zip ActiveX

Dim zip As New ChilkatZip2

Dim success As Long

'  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
    Exit Sub
End If

success = zip.NewZip("test.zip")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    Exit Sub
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.
Dim recurse As Long
recurse = 1
Dim archiveOnly As Long
archiveOnly = 1
Dim includeHidden As Long
includeHidden = 1
Dim includeSystem As Long
includeSystem = 1
Dim saveExtraPath As Long
saveExtraPath = 0
zip.AppendFilesEx "c:/temp/abc123/*",recurse,saveExtraPath,archiveOnly,includeHidden,includeSystem

success = zip.WriteZipAndClose()
If (success <> 1) Then
    MsgBox zip.LastErrorText
    Exit Sub
End If

MsgBox "Zip Created!"