ZLib - Compress file

Examples

ZLib - Compress file
Sub CompressFile(SourceFile, DestFile) Dim ByteArray, ZLib Set ByteArray = CreateObject("ScriptUtils.ByteArray") Set ZLib = CreateObject("ScriptUtils.ZLib") 'Read the dsource file ByteArray.ReadFrom SourceFile 'Compress source data Set ByteArray = ZLib.Compress(ByteArray.ByteArray) 'Save data to the destination file ByteArray.SaveAs DestFile End Sub

Sub CompressFile(SourceFile, DestFile)
  Dim ByteArray, ZLib
  Set ByteArray = CreateObject("ScriptUtils.ByteArray")
  Set ZLib = CreateObject("ScriptUtils.ZLib")
  
  'Read the dsource file
  ByteArray.ReadFrom SourceFile

  'Compress source data
  Set ByteArray = ZLib.Compress(ByteArray.ByteArray)

  'Save data to the destination file
  ByteArray.SaveAs DestFile
End Sub

ScriptUtils.ZLib

Implements zlib Compress and Uncompress functions. Lets you compress/uncompress files, or send compressed data over http/https connections.

     Huge ASP upload is easy to use, hi-performance ASP file upload component with progress bar indicator. This component lets you upload multiple files with size up to 2GB to a disk or a database along with another form fields. Huge ASP file upload is a most featured upload component on a market with competitive price and a great performance.

     The software has also a free version of asp upload with progress, called Pure asp upload, written in plain VBS, without components (so you do not need to install anything on server).

     This installation package contains also ScriptUtilities library. Script Utilities lets you create hi-performance log files, works with binary data, you can download multiple files with zip/arj compression, work with INI files and much more with the ASP utility.