ZLib - Compress file

          Sample for ScriptUtils.ZLib.Compress 

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
  Other links for ZLib - Compress file
Implements zlib Compress and Uncompress functions. Lets you compress/uncompress files, or send compressed data over http/https connections.
      Easy to use, hi-performance ASP file upload component with progress bar indicator. Let's you upload multiple files with size up to 2GB to a disk or database along with another form fields. Works with large posts, any character set (including unicode utf-8). Contains one-click multiple files/folders download with on-the-fly compression (Using BinaryWrite/BinaryRead).
      Hi-performance text file logging for ASP/VBScript/VBA applications. Lets you create daily/weekly/monthly log files with variable number of logged values and extra timing and performance info.
       Lets you work with safearray binary data in VBS/JS. It also enables conversion between binary and String data using several code pages. ZLib compress and uncompress functions. Lets you transfer files using compressed stream from a client to server using IE.
      This library also enables calling of some Kernel and Advapi functions (performance, timing, sleep, configuration ...) and enables native work with INI files.


© 1996 – 2005 Motobit Software, help{at}pstruh.cz, help v. 2.16.14