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

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

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

Dim zip As New Chilkat.Zip()

Dim success As Boolean

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


success = zip.NewZip("test.zip")
If (success <> true) Then
    MsgBox(zip.LastErrorText)
    Exit Sub
End If


'  Tell the component to clear each file's archive attribute
'  when zipping.
zip.ClearArchiveAttribute = true

'  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 Boolean
recurse = true
Dim archiveOnly As Boolean
archiveOnly = true
Dim includeHidden As Boolean
includeHidden = true
Dim includeSystem As Boolean
includeSystem = true
Dim saveExtraPath As Boolean
saveExtraPath = false
zip.AppendFilesEx("c:/temp/abc123/*",recurse,saveExtraPath,archiveOnly,includeHidden,includeSystem)


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


MsgBox("Zip Created!")