Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Tcl) Unzip Selected Files from a Zip ArchiveDemonstrates how to iterate over the files contained within a .zip and unzip specific files.
load ./chilkat.dll # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set zip [new_CkZip] set success [CkZip_OpenZip $zip "my_files.zip"] if {$success != 1} then { puts [CkZip_lastErrorText $zip] delete_CkZip $zip exit } set unzipDir "/temp/unzipDir" # Get the number of files and directories in the .zip set n [CkZip_get_NumEntries $zip] puts "$n" # entry is a CkZipEntry for {set i 0} {$i <= [expr $n - 1]} {incr i} { set entry [CkZip_GetEntryByIndex $zip $i] if {[CkZipEntry_get_IsDirectory $entry] == 0} then { # (the filename may include a path) puts [CkZipEntry_fileName $entry] # Your application may choose to unzip this entry # based on the filename. # If the entry should be unzipped, then call Extract(unzipDir) set success [CkZipEntry_Extract $entry $unzipDir] if {$success != 1} then { puts [CkZipEntry_lastErrorText $entry] delete_CkZip $zip exit } } delete_CkZipEntry $entry } delete_CkZip $zip |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.