Examples see http://xstandard.com/en/documentation/xzip/

The examples below are for Active Server Pages. For Windows Scripting Host or Visual Basic, replace Server.CreateObject with CreateObject and replace Resonse.Write with MsgBox.

How to archive (or zip) multiple files

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.Pack "C:\Temp\golf.jpg", "C:\Temp\images.zip"
5. objZip.Pack "C:\Temp\racing.gif", "C:\Temp\images.zip"
6. Set objZip = Nothing
7. %>

How to archive (or zip) multiple files with different compression levels

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.Pack "C:\Temp\reports.doc", "C:\Temp\archive.zip", , 9
5. objZip.Pack "C:\Temp\boat.jpg", "C:\Temp\archive.zip", , 1
6. Set objZip = Nothing
7. %>

How to archive (or zip) multiple files with default path

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.Pack "C:\Temp\reports.doc", "C:\Temp\archive.zip", True
5. objZip.Pack "C:\Temp\boat.jpg", "C:\Temp\archive.zip", True
6. Set objZip = Nothing
7. %>

How to archive (or zip) multiple files with a custom path

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.Pack "C:\Temp\reports.doc", "C:\Temp\archive.zip", True, "files/word"
5. objZip.Pack "C:\Temp\boat.jpg", "C:\Temp\archive.zip", True, "files/images"
6. Set objZip = Nothing
7. %>

How to archive (or zip) multiple files using wildcards

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.Pack "C:\Temp\*.jpg", "C:\Temp\images.zip"
5. Set objZip = Nothing
6. %>

How to unzip files

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.UnPack "C:\Temp\images.zip", "C:\Temp\"
5. Set objZip = Nothing
6. %>

How to unzip files using wildcards

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.UnPack "C:\Temp\images.zip", "C:\Temp\", "*.jpg"
5. Set objZip = Nothing
6. %>

How to get a listing of files and folder in an archive

1. <%
2. Dim objZip, objItem
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. For Each objItem In objZip.Contents("C:\Temp\images.zip")
5. Response.Write objItem.Path & objItem.Name & "<br />"
6. Next
7. Set objZip = Nothing
8. Set objItem = Nothing
9. %>

How to remove a file from an archive

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.Delete "headshots/smith.jpg", "C:\Temp\images.zip"
5. Set objZip = Nothing
6. %>

How to move a file in an archive

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.Move "headshots/jones.jpg", "staff/jones.jpg", "C:\Temp\images.zip"
5. Set objZip = Nothing
6. %>

How to rename a file in an archive

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.Move "headshots/jones.jpg", "headshots/randy-jones.jpg", "C:\Temp\images.zip"
5. Set objZip = Nothing
6. %>

Known Issues

• The UnPack() method will first remove all files from the destination folder. This behavior will change in future releases.