Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
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. 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!" |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.