/blog » componente zip http://www.franklinjr.com/blog Thu, 29 Jul 2010 14:14:10 +0000 en hourly 1 http://wordpress.org/?v=3.0 Exemplo do componente XZip http://www.franklinjr.com/blog/index.php/2009/05/12/exemplo-do-componente-xzip/ http://www.franklinjr.com/blog/index.php/2009/05/12/exemplo-do-componente-xzip/#comments Tue, 12 May 2009 23:43:28 +0000 franklin http://www.franklinjr.com/blog/?p=394 Teu site tá hospedado num servidor windows com IIS e tu quer um componente pra compactar e descompactar arquivos .zip? Existe um componente que faz essa manipulação de arquivos .zip, ele é o Xzip, abaixo um exemplo para compactar, descompactar e listar os arquivos compactados dentro do .zip.

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 & “<br />”
Next
‘ Tira o objeto da memória
Set XZip = Nothing
%>

]]> http://www.franklinjr.com/blog/index.php/2009/05/12/exemplo-do-componente-xzip/feed/ 0