Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Gzip a FileDemonstrates how to create a .gz (gzipped file).
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim gzip As Chilkat.Gzip Set gzip = Chilkat.NewGzip ' This will create a .gz such that when ungzipped by a tool such as 7-Zip, ' it will create "qa_data/hamlet.xml". success = gzip.CompressFile("qa_data/hamlet.xml","qa_output/hamlet.xml.gz") If (success = False) Then Debug.Print gzip.LastErrorText Exit Sub End If ' Call CompressFile2 to explicitly specify the ungzip path ' For example, this will create a .gz such that when ungzipped by a tool such as 7-Zip, ' it will create "hamlet.xml". embeddedExtractPath = "hamlet.xml" success = gzip.CompressFile2("qa_data/hamlet.xml",embeddedExtractPath,"qa_output/hamlet2.xml.gz") If (success = False) Then Debug.Print gzip.LastErrorText Exit Sub End If Debug.Print "Success." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.