| About Us | Services | Download | Order | Support | |

ASP Zip Component v1.22 - Documentation

Table of Contents

• ASP Zip Component Documentation
• Table of Content
• Description
• Features
• Compatibility
• System Requirements
• Installation Instructions
• Installation Package Content
• WinZip® and SFX Compatibility Issues
• Objects Reference
• Zip
  • Properties
  • Action
  • Comment
  • CompressMode
  • Count
  • DestDirectory
  • DiskCount
  • ExcludeList
  • FileAttributes
  • FileComment
  • FileCompressedSize
  • FileCompressMethod
  • FileCRC
  • FileDateTime
  • FileDiskIndex
  • FileFullName
  • FileList
  • FileName
  • FilePathName
  • FileSize
  • IsFileEncrypted
  • IsFileOK
  • KeepAttributes
  • KeepPaths
  • KeepVolumes
  • Modified
  • MoveFiles
  • MultiBlockSize
  • MultiMode
  • OEM
  • OwervriteMode
  • Password
  • RecreateDirectories
  • RecursionDirectories
  • RelativePaths
  • ReplaceReadOnly
  • RootDirectory
  • SaveEmptyDirectories
  • Selected
  • SelectedCount
  • SFXDefaultOverwriteAction
  • SFXDialogTitle
  • SFXEnableAutoRun
  • SFXEnableFilesCustomSelection
  • SFXExtractionPath
  • SFXForceDefaultOverwriteAction
  • SFXRunCommandAfterExtraction
  • SFXStartupMessage
  • ShortNamesMode
  • Size
  • SkipList
  • SortMode
  • Temp
  • Version
  • WrongZip
  • WrongZipMode
  • ZipFileName
  • Methods
  • Check
  • ClearSelection
  • Convert
  • DeleteFile
  • DeleteFiles
  • DeleteFolder
  • Fix
  • GetTempFileName
  • GetTempFolder
  • GZipStream
  • GZipTextToBuffer
  • New
  • Open
  • Read
  • Reset
  • Save
  • SaveAsSFX
  • Sort
  • Split
  • UnGZipBufferToText
  • UnGZipStream
  • UnSfx
  • Unzip
  • UnzipBufferToText
  • UnzipFileByIndexTo
  • UnzipFileByIndexToText
  • UnzipFileTo
  • UnzipFileToText
  • UnzipSelected
  • UnzipStream
  • UnzipTo
  • UUDecode
  • UUEncode
  • ZipFilesTo
  • ZipFolderTo
  • ZipStream
  • ZipText
  • ZipTextToBuffer
• Strings
• Properties
• Count
• Item
• Methods
  • Add
  • Clear
  • Remove
• Demos
• Extract All Files
• Extract selected files
• Extract files by file list
• Extract files by using of UnzipTo method
• Extract a file by using UnzipFileTo method
• Extract a file by using UnzipFileByIndexTo method
• Extract a file by using UnzipFileToText method
• Zip all files
• Zip files by using ZipFolderTo method
• Zip files by using ZipFilesTo method
• Zip files no recursion on directories
• Zip/unzip text buffer demo
• Compress/Decompress text buffer using GZip algorithm demo
• Compress/Decompress streams using GZip algorithm demo
• Create SFX archive
• Create milti-files zip archive
• Create custom SFX archive
• Convert SFX to Zip
• Spanning a zip file to user browser
• Zip and Email demo
• Check zip file integrity
• Fix a zip file
• Convert ZIP archive to CAB
• Convert ARJ archive to ZIP
• Terms and Conditions
• Single Server License
• Single Organization License
• Developer License
• Discounts
• Usage
• Technical Support
• Violations of Terms and Conditions
• Links and References

Description

ASP Zip Component is ActiveX component offering high performance WinZip®, PKZIP®, and UNIX gzip compatible compression and decompression functionality. With its reach feature set this component is ideal for ASP applications or any other software capable of using ActiveX components. High quality of this product, ease of use, free setup support and unbeatable price make ASP Zip Component the great choice for responsible project managers.

Features

• Zip actions
• Create a new zip file;
• Compress entire directories and their contents or a list of directories or list files;
• Supports SkipList for files that you do not want to add to archive;
• Compress only files newer than those already in the zip file (Refresh);
• Compress files and add them to a zip file (Update);
• Delete files after zipping them (Move);
• Have specified types of files directly copied into a zip file without compression;
• Include a drive volume label in a zip file;
• Zips files with paths or without;
• Enable or disable recursion on directories;
• Enable or disable adding of empty directories to an archive;
• Compress files in 8.3 short file names mode;
• Zips text buffers;
• Can keep existing file attributes on zipping;
• UnZIP Actions
• Decompress files from a zip file;
• Specify the directory where files will be decompressed to;
• Can decompress single file by name or index;
• Can decompress single text file to text variable;
• Can decompress zipped text buffer;
• Deletes archive files;
• Multi-file archives
• Reads and writes zip files that span multiple files;
• Converts multi-file archives to one single zip file;
• Converts an existing zip file to a multi-file archive;
• Self-extracting features
• Specify Self-extracting file name, custom title, popup messages and other sfx options;
• General zip information
• Supported use of a password;
• Obtain a detailed list of files in a zip file;
• Use wildcards to specify the files to be processed;
• Tools
• Tests the integrity, repairs corrupted zip files and reports any inconsistencies found;
• Converts existing zip files into self-extracting zip files;
• Converts existing self-extracting zip files into solid zip files;
• Converts existing cab, lha, lzh, ace, arc, arj, zip, gzip, tar, ha, jar, rar, pak and zoo archives to zip, cab, lzh, jar, tar and gziptar formats;
• Allows to remote SFX stub from existing ace, arc, arj, cab, jar, lha and lzh, pak, rar and zip SFX archive (Convert SFX archive to native format)
• General process information
• Set the compression level;
• You can specify the location of the temporary path for maximum performance;
• Other
• Documentation and samples are available to start using the component instantly
• Great performance and low server resources consumption
• Fair price. Just compare to alternatives offered on the net

Compatibility

• MS Visual Basic
• MS Visual C++
• MS Visual InterDev
• MS Access
• MS Visual Basic .NET
• MS Visual C++ .NET
• MS Visual C# .NET
• MS FoxPro for Windows
• Microsoft Office
• Borland Delphi
• Borland C++Builder
• PowerBuilder
• ASP
• CFM
• Compatibility with IIS 4, IIS 5, IIS 6 (Windows NT, 2000, XP), and PWS
• Any other 32-bit visual programming environment that supports ActiveX technology

System Requirements

OS:

• Microsoft Windows 95, 98, ME (PWS)
• Microsoft Windows NT4, 2000, XP, 2003 (IIS)

Web Server:

• Microsoft Internet Information Server v.4; v.5; v.6
• Microsoft Personal Web Server

Installation Instructions

After receiving ASP Zip Component distribution package:

1. Extract all files from zip file to temporary directory
2. Run Setup.exe
3. Follow instructions of the installer
4. Test installation with one of the examples found in the archive

Installation Package Content

After running installation package with default options, setup program will create following files and folders on your hard drive:

    Binary Files
       c:\windows\system32\sczip.dll    - Softcomplex Zip DLL
       c:\windows\system32\stdvcl40.dll - Component support DLL
       c:\windows\system32\scziputl.dll - Component support DLL
       c:\windows\system32\cabinet.dll  - CAB archives support DLL
       c:\windows\system32\unacev2.dll  - ACE archives support DLL
       c:\windows\system32\unrar3.dll   - RAR archives support DLL
       
    Component Type Library
        c:\Program Files\SoftComplex\Zip Component\TypeLib\sczip.tlb
        
    Redistributable Files
        c:\Program Files\SoftComplex\Zip Component\Redist
        
    Documentation
        c:\Program Files\SoftComplex\Zip Component\Documentation
    
    Demo Files
        ASP    
            c:\Program Files\SoftComplex\Zip Component\Demo\ASP
            
        Microsoft Visual Studio 2005 Demo Projects
            c:\Program Files\SoftComplex\Zip Component\Demo\Microsoft Visual Studio 2005
            
        Microsoft Scripting Host Demo Files
            c:\Program Files\SoftComplex\Zip Component\Demo\Microsoft Scripting Host
            
        

WinZip® and SFX Compatibility Issues

In order to make compatible WinZip® or SFX archive you have to draw attention on following issues:

1. If your result archive has any subfolder(s) and you set RecursionDirectories property to True you have to set KeepPaths property to true as well;
2. If your result archive has any subfolder(s) and you set RelativePaths property to True you have to set KeepPaths property to true as well;

Objects Reference

Zip

Zip object

Syntax:

VBasic:

Set Zip = Server.CreateObject("SoftComplex.Zip")

JScript:

var Zip = Server.CreateObject("SoftComplex.Zip");

Strings

Strings object

Strings object is Zip component helper object used internally for maintain string lists

Demos

Extract All Files

This demo shows how to use Zip Component for extract all archive files.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FilesCount


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'open zip file
	Zip.Open(Server.MapPath(".") & "\test.zip")


	'read archive items
	Zip.Read 


	'set destination folder for unzip
	Zip.DestDirectory = Zip.GetTempFolder("my_unzip_folder", Server.MapPath(".") & "\Temp")



	'unzip zip archive
	FilesCount = Zip.Unzip 

Extract selected files

This demo shows how to use Zip Component for extract only selected files.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip, I
	Dim FilesCount


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'open zip file
	Zip.Open(Server.MapPath(".") & "\test.zip")


	'read archive items
	Zip.Read 


	'set destination folder for unzip
	Zip.DestDirectory = Zip.GetTempFolder("my_unzip_folder", Server.MapPath(".") & "\Temp")


	for I = 0 to Zip.Count-1
		'if file name contains ".html" token select file
		if InStr(1,Zip.FileName(I), ".html") then
			Zip.Selected(I) = True
		end if
	Next



	'unzip selected files
	FilesCount = Zip.UnzipSelected

Extract files by file list

This demo shows how to use Zip Component for extract only files that match specified mask.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FilesCount


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'open zip file
	Zip.Open(Server.MapPath(".") & "\test.zip")


	'read archive items
	Zip.Read 


	'set destination folder for unzip
	Zip.DestDirectory = Zip.GetTempFolder("my_unzip_folder", Server.MapPath(".") & "\Temp")


	Zip.FileList.Add("*.jpg")
	Zip.FileList.Add("*.gif")



	'unzip files that match "*.jpg" and "*.gif" wildcards
	FilesCount = Zip.Unzip

Extract files by using of UnzipTo method

This demo shows how to extract zip files by using UnzipTo method.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip, DestFolder
	Dim FilesCount


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'open zip file
	Zip.Open(Server.MapPath(".") & "\test.zip")




	'destination folder for unzip
	DestFolder = Zip.GetTempFolder("my_unzip_folder", Server.MapPath(".") & "\Temp")


	'unzip zip archive
	FilesCount = Zip.UnzipTo(DestFolder, "")

Extract a file by using UnzipFileTo method

This demo shows how to extract a single archive file by using UnzipFileTo method.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip, DestFolder
	Dim FileFound


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'open zip file
	Zip.Open(Server.MapPath(".") & "\test.zip")




	'destination folder for unzip

	DestFolder = Zip.GetTempFolder("my_unzip_folder", Server.MapPath(".") & "\Temp")


	'unzip single file
	FileFound = Zip.UnzipFileTo("zipcomponent.html", DestFolder, "")

Extract a file by using UnzipFileByIndexTo method

This demo shows how to extract a single file by using UnzipFileByIndexTo method.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip, DestFolder, FileIndex, I
	Dim FileFound


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'open zip file
	Zip.Open(Server.MapPath(".") & "\test.zip")

	Zip.RecreateDirectories = True


	'destination folder for unzip

	DestFolder = Zip.GetTempFolder("my_unzip_folder", Server.MapPath(".") & "\Temp")


	FileIndex = -1

	'searching for first .js file
	for I = 0 to Zip.Count-1
		if InStr(Zip.FileName(I), ".js") > 0 then
			FileIndex = I
			exit for
		end if
	Next


	'if file found unziping .js file
	if FileIndex > -1 then 
		FileFound = Zip.UnzipFileByIndexTo(FileIndex, DestFolder, "")
	end if

Extract a file by using UnzipFileToText method

This demo shows how to extract a file content by using UnzipFileToText method.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip, DestFolder
	Dim FileText


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'open zip file
	Zip.Open(Server.MapPath(".") & "\test.zip")





	'unzip archive file content into text variable
	FileText = Zip.UnzipFileToText("JavaScripts\Calculator\calculator.html")


	Response.Write "<br/><div class='message'><b>File text</b>:<pre>" & vbCRLF & FileText & vbCRLF & "</pre></div>"

Zip all files

This demo code shows how to zip files.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName, FileList


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'create temporary file name for output zip file
	FileName = Zip.GetTempFileName(Server.MapPath(".") & "\Temp", "test", ".zip")

	'create new zip file
	Zip.New(FileName)


	'set root folder
	Zip.RootDirectory = Server.MapPath(".") & "\TestFiles"


	'add files to archive
	Zip.FileList.Add("*.*")




	'save zip file
	FileCount = Zip.Save

Zip files by using ZipFolderTo method

This code shows how to zip files by using ZipFolderTo method.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName, FileCount


	Set Zip = Server.CreateObject("SoftComplex.Zip")

	'create temporary file name for output zip file
	FileName = Zip.GetTempFileName(Server.MapPath(".") & "\Temp", "test", ".zip")

	'zip testfiles folder

	FileCount = Zip.ZipFolderTo(Server.MapPath(".") & "\TestFiles", FileName)

Zip files by using ZipFilesTo method

This demo code shows how zip files by using ZipFilesTo method.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName, FileCount


	Set Zip = Server.CreateObject("SoftComplex.Zip")

	'create temporary file name for output zip file
	FileName = Zip.GetTempFileName(Server.MapPath(".") & "\Temp", "test", ".zip")

	'zip all gif files from testfiles folder
	FileCount = Zip.ZipFilesTo(Server.MapPath(".") & "\TestFiles\*.gif", FileName)

Zip files no recursion on directories

This code shows how to disable directories recursion on files zipping.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName, FileList


	Set Zip = Server.CreateObject("SoftComplex.Zip")

	'create temporary file name for output zip file
	FileName = Zip.GetTempFileName(Server.MapPath(".") & "\Temp", "test", ".zip")

	'create new zip file
	Zip.New(FileName)


	'set root folder
	Zip.RootDirectory = Server.MapPath(".") & "\TestFiles"


	Zip.RecursionDirectories = False


	'add files to archive
	Zip.FileList.Add("*.*")




	'save zip file
	Zip.Save





	'adding new text file to zip archive
	Zip.ZipText "TestTextFile.txt", "Some Text Some Text Some Text Some Text Some Text Some Text Some Text Some Text"





	'extracting and writing to page archive text file contens
	Response.Write Zip.UnzipFileToText("TestTextFile.txt")

Zip/unzip text buffer demo

This demo shows how to zip or unzip text buffer

	Dim Zip
	Dim ZippedArrayOfBytes, ZBase64Str, Str
	Dim Values, I


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	Values = ""


	For I = 0 to 1000
		if Values <> "" then 
			Values = Values & ", "
		end if
		Values = Values & "value"  & CStr(I)
	Next

	ZippedArrayOfBytes = Zip.ZipTextToBuffer(Values, "")

	Str = Zip.UnZipBufferToText(ZippedArrayOfBytes, "")

	'Perform Base64 Encode on compressed text
	ZBase64Str = Zip.UUEncode(ZippedArrayOfBytes)


	Response.Write "<br/><div class='message'><b>Uncompressed Values Size:</b>" & CStr(Len(Values)) & "</div>" 
	Response.Write "<br/><div class='message'><b>Compressed Values Size:</b>" & CStr(UBound(ZippedArrayOfBytes)) & "</div>" 

	Response.Write "<br/><div class='message'><b>Uncompressed Values:</b>" & Values & "</div>" 
	Response.Write "<br/><div class='message'><b>Compressed and Base64 Encoded Values:</b>" & ZBase64Str & "</div>" 
	Response.Write "<br/><div class='message'><b>Compressed and then uncompressed values:</b>" & Str & "</div>" 

Compress/Decompress text buffer using GZip algorithm demo

This demo shows how to compress or decompress text buffer using GZip algorithm

	Dim Zip
	Dim ZippedArrayOfBytes, ZBase64Str, Str
	Dim Values, I


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	Values = ""


	For I = 0 to 1000
		if Values <> "" then 
			Values = Values & ", "
		end if
		Values = Values & "value"  & CStr(I)
	Next

	ZippedArrayOfBytes = Zip.GZipTextToBuffer(Values)

	Str = Zip.UnGZipBufferToText(ZippedArrayOfBytes)

	'Perform Base64 Encode on compressed text
	ZBase64Str = Zip.UUEncode(ZippedArrayOfBytes)


	Response.Write "<br/><div class='message'><b>Uncompressed Values Size:</b>" & CStr(Len(Values)) & "</div>" 
	Response.Write "<br/><div class='message'><b>Compressed Values Size:</b>" & CStr(UBound(ZippedArrayOfBytes)) & "</div>" 

	Response.Write "<br/><div class='message'><b>Uncompressed Values:</b>" & Values & "</div>" 
	Response.Write "<br/><div class='message'><b>Compressed and Base64 Encoded Values:</b>" & ZBase64Str & "</div>" 
	Response.Write "<br/><div class='message'><b>Compressed and then uncompressed values:</b>" & Str & "</div>" 

Compress/Decompress streams using GZip algorithm demo

This demo shows how to compress or decompress text or binary streams using GZip algorithm

	Dim Zip
	Dim InputStream, CompressedStream, DecompressedStream
	Dim InputText, DecompresedText


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	Set InputStream = Server.CreateObject("ADODB.Stream")
	Set CompressedStream = Server.CreateObject("ADODB.Stream")

	Set DecompressedStream = Server.CreateObject("ADODB.Stream")


	InputStream.Open

	InputStream.Type = 2 'Set type to Text


	InputText = "Some Text Some Text Some Text Some Text Some Text "


	InputStream.WriteText(InputText) 'Write Input Text to Stream
	Zip.GZipStream InputStream, CompressedStream 'Compress Stream


	Zip.UnGZipStream CompressedStream, DecompressedStream 'Decompress Stream 

	DecompressedStream.Position = 0 'Set position to begin of stream to change stream type
	DecompressedStream.Type = 2 'Set Stream Type to Text
	DecompressedStream.Charset = "x-ansi"


	DecompresedText = DecompressedStream.ReadText(DecompressedStream.Size) 'Read decompressed text from stream

	'close streams
	InputStream.Close
	CompressedStream.Close
	DecompressedStream.Close

Create SFX archive

This demo shows how to create self extracting archive.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName, FileList, TempFolder, FileCount


	Set Zip = Server.CreateObject("SoftComplex.Zip")

	'create temporary folder
	TempFolder = Zip.GetTempFolder("my_temp_folder", Server.MapPath(".") & "\Temp")

	'create temporary file name for output zip file
	FileName = Zip.GetTempFileName(TempFolder, "test", ".zip")

	'create new zip archive
	Zip.New(FileName)


	'set root folder
	Zip.RootDirectory = Server.MapPath(".") & "\TestFiles"


	'add files to archive
	Zip.FileList.Add("*.*")




	'save sfx zip archive
	FileCount = Zip.SaveAsSFX("")

Create milti-files zip archive

This demo shows how to create milti-files zip archive.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName, TempFolder


	Set Zip = Server.CreateObject("SoftComplex.Zip")

	'create temporary folder
	TempFolder = Zip.GetTempFolder("my_temp_folder", Server.MapPath(".") & "\Temp")


	'create temporary file name for output zip file
	FileName = Zip.GetTempFileName(TempFolder, "test", ".zip")

	'create new zip archive
	Zip.New(FileName)


	'set root folder
	Zip.RootDirectory = Server.MapPath(".") & "\TestFiles"

	Zip.MultiMode = "Blocks"
	Zip.MultiBlockSize = 30000 '30kb


	'add files to archive
	Zip.FileList.Add("*.*")




	'save multi blocks zip archive
	Zip.Save

Create custom SFX archive

This demo shows how to create custom self extracting archive.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName, TempFolder, FileList


	Set Zip = Server.CreateObject("SoftComplex.Zip")

	'create temporary folder

	TempFolder = Zip.GetTempFolder("my_temp_folder", Server.MapPath(".") & "\Temp")


	'create temporary file name for output zip file
	FileName = Zip.GetTempFileName(TempFolder, "test", ".zip")

	'create new zip file
	Zip.New(FileName)


	'set root folder
	Zip.RootDirectory = Server.MapPath(".") & "\TestFiles"


	'add files to archive
	Zip.FileList.Add("*.*")



	Zip.SFXDialogTitle = "Custom Title"
	Zip.SFXEnableFilesCustomSelection = False

	'save sfx zip file
	FileCount = Zip.SaveAsSFX("")

Convert SFX to Zip

This demo shows how to convert a SFX archive to solid zip file.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'create temporary file name for output zip file 
	FileName = Zip.GetTempFileName(Server.MapPath(".") & "\Temp", "test", ".zip") 

	'save sfx in native zip format
	Zip.UnSfx Server.MapPath(".") & "\test.exe", FileName, False

Spanning a zip file to user browser

This demo code shows how to span a zip file to user browser.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName, FileList
	Dim objStream


	Set Zip = Server.CreateObject("SoftComplex.Zip")

	'create temporary file name for output zip file

	FileName = Zip.GetTempFileName(Server.MapPath(".") & "\Temp", "test", ".zip")

	'create new zip file
	Zip.New(FileName)


	'set root folder
	Zip.RootDirectory = Server.MapPath(".") & "\TestFiles"


	'ad files to archive
	Zip.FileList.Add("*.*")

	'save archive
	Zip.Save

	Response.AddHeader "Content-Length", CStr(Zip.Size)
	Response.ContentType = "application/x-zip-compressed"
	Response.AddHeader "Content-Disposition", "inline; filename=sample.zip"

	Set objStream = Server.CreateObject("ADODB.Stream")
	objStream.Open
	objStream.Type = 1 'adTypeBinary
	objStream.LoadFromFile FileName

	'send zip file to user browser
	Response.BinaryWrite objStream.Read

	objStream.Close
	Set objStream = Nothing

	'delete temp zip file
	Zip.DeleteFile(FileName)

	Response.End

Zip and Email demo

This demo shows how to create a zip archive and then send it by Email (Requires Softcomplex ASP Mail Component).
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip, Email
	Dim FileName, FileList


	Set Zip = Server.CreateObject("SoftComplex.Zip")

	'create temporary file name for output zip file

	FileName = Zip.GetTempFileName(Server.MapPath(".") & "\Temp", "test", ".zip")

	'create new zip file
	Zip.New(FileName)


	'set root folder
	Zip.RootDirectory = Server.MapPath(".") & "\TestFiles"


	'add files to archive
	Zip.FileList.Add("*.*")


	'save zip archive
	Zip.Save



	'create mailer object
	Set Mailer = Server.CreateObject("SoftComplex.Email")

	Mailer.SmartHost = "localhost"
	Mailer.AddRecipient "Recipient Name", "recipient@server"

	'attach zip file to email message
	Mailer.AddAttachment FileName

	Mailer.Subject = "Test"
	Mailer.Body = "Message Body"

	'send email message and check send result
	if Mailer.Send = 0 then 
		Response.Write "<p>Result: Ok</p>"
	else
		'Report Error
		Response.Write "<p>Result: Error (" + Mailer.Response + ")</p>"
	end if

	'delete temporary zip file
	Zip.DeleteFile(FileName)

Check zip file integrity

This demo shows how to test a zip file integrity

	Dim Zip, I
	Dim FilesCount, CheckResult, FileName


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'open zip file
	Zip.Open (Server.MapPath(".") & "\testbroken.zip")

	'create temporary file name for output zip file

	FileName = Zip.GetTempFileName(Server.MapPath(".") & "\Temp", "test", ".zip")


	'check zip file
	CheckResult = Zip.Check


	Response.Write "<br/><div class='message'>Is Archive OK: " & CheckResult & "</div>"
	if not CheckResult then 
		Response.Write "<br/><div class='message'>Possible Reason: " & Zip.WrongZipMode & "</div>" 
	end if



	Response.Write "<br/><div class='message'><b>Archive Content</b></div>"


	Response.Write "<table cellpadding='3'>"
	Response.Write "<tr><th>Type</th><th>Attributes</th><th>File Date</th><th>Path</th><th>Name</th><th>Is File Ok</th></tr>"


	for I = 0 to Zip.Count-1
		Response.Write "<tr>"
		if Zip.FileAttributes(I) and 16 then
			Response.Write "<td> folder </td>"
		else
			Response.Write "<td>  </td>"
		end if
		Response.Write "<td>" & FileAttributesToString(Zip.FileAttributes(I)) & "</td>"
		Response.Write "<td>" & Zip.FileDateTime(I) & "</td>"
		Response.Write "<td>" & Zip.FilePathName(I) & "</td>"
		Response.Write "<td>" & Zip.FileName(I) & "</td>"
	

		if Zip.IsFileOK(I) then
			Response.Write "<td>OK</td>"
		else
			Response.Write "<td><b><font color='red'>Broken</font></b></td>"
		end if
	

		Response.Write "</tr>"		

	Next


	Response.Write "</table>"

Fix a zip file

This demo shows how to fix a broken zip file.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip, I
	Dim FilesCount, FileName, CheckResult


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'create temporary file name for output zip file
	FileName = Zip.GetTempFileName(Server.MapPath(".") & "\Temp", "test", ".zip")

	'open broken zip file
	Zip.Open Server.MapPath(".") & "\testbroken.zip"


	'fix zip file
	I = Zip.Fix(FileName)

	'reset zip component
	Zip.Reset


	'open output zip file
	Zip.Open FileName


	'read archive items
	CheckResult = Zip.Check
	Response.Write "<br/><div class='message'><b>Fixed Archive Info</b></div>" 
	Response.Write "<br/><div class='message'>Is Archive OK: " & CheckResult & "</div>" 
	if not CheckResult then
		Response.Write "<br/><div class='message'>Possible Reason: " & Zip.WrongZipMode & "</div>" 
	end if


	Response.Write "<br/><div class='message'><b>Fixed Archive Content</b></div>" 


	Response.Write "<table cellpadding='3'>"
	Response.Write "<tr><th>Type</th><th>Attributes</th><th>File Date</th><th>Path</th><th>Name</th><th>Is File Ok</th></tr>"


	for I = 0 to Zip.Count-1
		Response.Write "<tr>"
		if Zip.FileAttributes(I) and 16 then
			Response.Write "<td> folder </td>"
		else
			Response.Write "<td>  </td>"
		end if
		Response.Write "<td>" & FileAttributesToString(Zip.FileAttributes(I)) & "</td>"
		Response.Write "<td>" & Zip.FileDateTime(I) & "</td>"
		Response.Write "<td>" & Zip.FilePathName(I) & "</td>"
		Response.Write "<td>" & Zip.FileName(I) & "</td>"
	

		if Zip.IsFileOK(I) then
			Response.Write "<td>OK</td>"
		else
			Response.Write "<td><b><font color='red'>Broken</font></b></td>"
		end if
	

		Response.Write "</tr>"		

	Next


	Response.Write "</table>"

Convert ZIP archive to CAB

This demo shows how to convert existing zip archive to cab archive.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName, FileName2, FileList


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'create temporary file name for output zip file
	FileName = Zip.GetTempFileName(Server.MapPath(".") & "\Temp", "test", ".zip")

	'create temporary file name for output cab file
	FileName2 = Replace(FileName, ".zip", ".cab")

	'create new zip file
	Zip.New(FileName)


	'set root folder
	Zip.RootDirectory = Server.MapPath(".") & "\TestFiles"


	'add files to archive
	Zip.FileList.Add("*.*")

	'save zip archive
	FileCount = Zip.Save


	'convert zip archive to cab and delete source zip file
	Zip.Convert FileName, "Cab", FileName2, "", True

Convert ARJ archive to ZIP

This demo shows how to convert existing ARJ archive to ZIP archive.
(Note this demo code uses Zip.GetTempFolder/Zip.GetTempFileName just for demo purpose for create unique temp folder/temp file. If you copy and paste this code use actual folder/file paths)

	Dim Zip
	Dim FileName, FilesCount


	Set Zip = Server.CreateObject("SoftComplex.Zip")


	'Convert arj archive to zip archive
	Zip.Convert Server.MapPath(".") & "\test.arj", "Zip", FileName, "", False


	'open zip file
	Zip.Open(FileName)


	'read archive items
	Zip.Read 


	'set destination folder for unzip
	Zip.DestDirectory = Zip.GetTempFolder("my_unzip_folder", Server.MapPath(".") & "\Temp")



	'unziping zip archive
	FilesCount = Zip.Unzip 

Terms and Conditions

Single Server License

One single server ASP Zip Component license gives the right to use one installation of the component. Component can be used by unlimited number of sites/domains hosted on the server.

Single Organization License

One single organization ASP Zip Component license gives the right to use unlimited installations of the component within single organization network.

Developer License

Developer license gives the right to include unlimited number of ASP Zip Component instances in the products of license owner. Such kind of license is obtained automatically by those who have 5 or more single licenses of any type above.

Discounts

After license order customers are offered special (significantly discounted) prices for other products of SoftComplex.

Usage

As owner of the ASP Zip Component license You are allowed to use the component in any possible way in Internet (public), Intranet (corporate), however You are strictly NOT allowed (unless specifically authorized by SoftComplex.com) to:

• Redistribute ASP Zip Component as any kind of compression software
• Decompile or reverse-engineer the code
• Claim authorship of the code

Technical Support

You are entitled to free product upgrades and technical support for at least one year from the date of purchase. Technical support includes answers to script related questions via e-mail and/or Internet instant messaging services.

Violations of Terms and Conditions

Should you violate these Terms and Conditions or any other rights of SoftComplex Inc., SoftComplex Inc. reserves the right to pursue any and all legal and equitable remedies against you without limitation.

Links and References

• ASP Zip Component product page
• ASP Zip Component documentation
• Download Trial Version
• Order ASP Zip Component
• Softcomplex Inc. site
• Support Forum
• Contact Technical Support