VBScript

Compress a String and Save as a Gzip File

See more Gzip Examples

This example demonstrates how to use the CompressStringToFile method to compress a string and write the result directly to a Gzip (.gz) file.

The input string is first converted to its byte representation using the specified character set (in this case, UTF-8). The resulting bytes are then compressed using the Gzip format, and the compressed output is written directly to the specified file.

This method is convenient when you want to generate a compressed file from in-memory text without needing intermediate objects such as BinData or StringBuilder.

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' This example demonstrates how to compress a string and save the result
' directly to a Gzip (.gz) file.

set gzip = CreateObject("Chilkat.Gzip")

' The string to be compressed:
inputStr = "The quick brown fox jumps over the lazy dog."

' Compress the string using UTF-8 and write to a file:
success = gzip.CompressStringToFile(inputStr,"utf-8","output.gz")
If (success = 0) Then
    outFile.WriteLine(gzip.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Compression successful.")
outFile.WriteLine("Gzip file written to output.gz")

outFile.Close