O componente ASP XZip possibilita você compactar / descompactar um arquivo ou pasta com uma única linha de código.
Compactando arquivos
<%
' Cria uma instância do controle
Set XZip = Server.CreateObject("XStandard.Zip")
' Adiciona arquivos no backup.zip
XZip.Pack Server.MapPath("foto_01.jpg"), Server.MapPath("backup.zip")
XZip.Pack Server.MapPath("foto_02.jpg"), Server.MapPath("backup.zip")
XZip.Pack Server.MapPath("foto_03.jpg"), Server.MapPath("backup.zip")
XZip.Pack Server.MapPath("foto_04.jpg"), Server.MapPath("backup.zip")
XZip.Pack Server.MapPath("foto_05.jpg"), Server.MapPath("backup.zip")
XZip.Pack Server.MapPath("foto_06.jpg"), Server.MapPath("backup.zip")
' Tira o objeto da memória
Set XZip = Nothing
%>
Descompactando arquivos
<%
' Cria uma instância do controle
Set XZip = Server.CreateObject("XStandard.Zip")
' Descompacta os arquivos
XZip.UnPack Server.MapPath("backup.zip"), Server.MapPath(".")
' Tira o objeto da memória
Set XZip = Nothing
%>
Listando arquivos compactados
<%
' Cria uma instância do controle
Set XZip = Server.CreateObject("XStandard.Zip")
' Lista os arquivos dentro do arquivo backup.zip
For Each objeto In XZip.Contents( Server.MapPath("backup.zip") )
Response.Write objeto.Name & "
"
Next
' Tira o objeto da memória
Set XZip = Nothing
%>
