Código Fonte - O melhor conteúdo para programadores

Autor

Hugo Felipe

membro deste junho de 2008

Compartilhe e guarde

Enquete

Que programa de afiliados é mais rentável?

Google adSense
Não sei
Mercado Livre
UOL Afiliados
Outros
Buscapé
Afilio (Hi-Midia)

Home Código Fonte ASP Arquivos

Compactação de arquivos com componente XZip - XStandard

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

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

Este código foi útil para você?

Nota	Comentário
Ainda não foi enviado nenhum comentário.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco