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 %>