Instalamos em nossos servidores Windows 2008 um componente que permite que o cliente gere arquivos compactados no formato ZIP e faça a descompactação. Trata-se do MITData AspEasyZip.

Este componente pode ser utilizado nativamente por scripts ASP e também via ASP.NET desde que se crie um Interop (mais informações em http://msdn.microsoft.com/en-us/library/kew41ycz(VS.71).aspx). Vale ressaltar que como existirá uma camada a mais intermediando o componente e a sua aplicação ASP.NET, haverá também uma penalização de performance na utilização de componentes ASP via Interop.

No caso de componentes nativos em .NET, um bom exemplo em código aberto pode ser encontrado em http://dotnetzip.codeplex.com.

Segue alguns exemplos em código ASP utilizando o componente AspEasyZip:

Compactação: Compacta o arquivo “Expedition.Log” no arquivo “test.zip”

<%

dim ZIP

set ZIP = server.createobject("aspZip.EasyZIP")

ZIP.Debug = True

Zip.ZipFileName = Server.MapPath ("test.zip")

Zip.ArgsClear

Zip.ArgsAdd( Server.MapPath ("Expedicion.Log") )

Zip.Zip

if ZIP.Error <> 0 then

    response.Write "Error: " & ZIP.LastMessage

else

    response.Write ZIP.SuccessCnt & " files added to zip file"

end if

Set ZIP = nothing

%>

Descompactação: Descompacta o conteúdo do arquivo “test.zip” no sub-diretório “test”

<%

dim ZIP

set ZIP = server.createobject("aspZip.EasyZIP")

Zip.Debug = true

Zip.ZipFileName = Server.MapPath("test.zip")

Zip.ArgsAdd("*.*")

Zip.ExtrbaseDir = Server.MapPath("test")

Zip.ExtrOptions = 1

Zip.UnZip

response.Write "Files UnZipped=" & Zip.SuccessCNT &
" with Error="& Zip.Error & "  message=" & Zip.LastMessage

Set ZIP = nothing

%>

Para a lista completa de todos os componentes ASP da hospedagem Windows 2008, clique aqui.

OBS: Para quem usa PHP no Linux, também existem funções para compactação como as extensões “RAR” e as extensões “bz2″ e “zip”.