Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Unzip Newer
Perl script to unzip files that are newer than those that already exist, or files that do not yet exist on the filesystem. # file: UnzipNewer.pl use chilkat; # Unzip files that have a more recent last-modified date/timestamp # than the corresponding file on disk. $zip = new chilkat::CkZip(); $zip->UnlockComponent("anything for 30-day trial"); $success = $zip->OpenZip("exampleData.zip"); if ($success) { # Returns -1 if error, otherwise returns the number of files unzipped. # In this example, UnzipNewer will create the directory "unzipDir" in the current # working directory (if it does not already exist) and unzip into it. $numUnzipped = $zip->UnzipNewer("unzipDir"); printf("numUnzipped = %d\n",$numUnzipped); } else { # Failed to open the .zip archive. $zip->SaveLastError("openZipError.txt"); } |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.