compactar/descompactar com XZip

O Zip componente fornece funcionalidade para zipar arquivos. É concebido para ser fácil de usar. Você pode compactar/descompactar um arquivo ou pasta com uma única linha de código. Se você precisar criar ou extrair arquivos Zip , este componente é para você. Esta componente pode ser utilizado em ambientes que suportam COM tais como Active Server Pages, o Windows Scripting Host, Visual Basic, etc, e o melhor de tudo é free.

zip pelo arquivo extension.asp ,zip múltiplos arquivos usando file collection

é necessário instalar o componente zip download aqui

<%
dim Ftype
Ftype = ".htm" ' escolher a extensão do arquivo que você deseja colocar na pasta zip

dim meuNome
meuNome = "meu_arquivo.zip" 'nome de seu arquivo dinamicamente pelo actual data e hora
' Month(now())&"_"& "D" & Day(now())&"_"&"Y" & Year(now())&"_"& "m" & Minute(now())&"_"&"S" & Second(now())& ".zip"

Dim objZip
Set objZip = Server.CreateObject("XStandard.Zip")

Dim objFileScripting, objFolder
Dim filename, filecollection, strDirectoryPath, strUrlPath
'strDirectoryPath="D:\path\public_html\backup\teste" ' mudanr para a pasta que você deseja zipar

'obter arquivo
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
'Retornar pasta objeto
Set objFolder = objFileScripting.GetFolder("D:\path\public_html\backup\pasta\")
'mudar a sua pasta com os arquivos de zip

Set filecollection = objFolder.Files
'colocar cada arquivo para o arquivo zip
For Each filename In filecollection

objZip.Pack "D:\path\public_html\backup\pasta\*" & Ftype,"D:\path\public_html\backup\teste\" & meuNome
response.write " ...lendo nomes de arquivo... " & filename & " <br>"
Next

response.write "<br><br><b>Aqui está o seu arquivo: " & "http://seu_siet/backup/teste/" & meuNome & "<b>" 'change url to your folder
Set objZip = Nothing
%>