Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Usando o SoftArtisans Archive

Recommended Posts

Usando o SoftArtisans Archive ,um componente sofisticado para compactar e descompactar arquivos do tipo *.zip. Veja abaixo um simples exemplo de utilização do mesmo, para mais detalhes sobre o funcionamento do componente consulte o manual do fabricante.

 

Compactando arquivos

<%
'Instancia o objeto Archive.
Set Arch = CreateObject("SoftArtisans.Archive")
 
'Informe o caminho do arquivo.zip
ArchiveName = "e:\home\Web\teste\arquivo.zip"
 
'Formato da proprirdade ArchiveType o 1 adiciona ou extrai um arquivo.
Arch.ArchiveType = 1
 
'Salva as instruções.
Arch.PreservePath = True
 
'Abre o arquivo arquivo.zip existente.
Arch.OpenArchive ArchiveName
 
'Adiciona arquivos no arquivo.zip.
Arquivo1 = "e:\home\web\imagens\figura1.jpg"
Arquivo2 = "e:\home\imagens\teste\figura2.jpg"
Arquivo3 = "e:\home\imagens\teste\figura3.jpg"
 
'Parametro do método AddFile
Arch.AddFile Arquivo1, True
Arch.AddFile Arquivo2, True
Arch.AddFile Arquivo3, True
 
'Fecha o arquivo.zip
Arch.CloseArchive
 
Response.write "Arquivos compactados !"
 
'Destruíndo objeto
set Arch = nothing
%>

Descompactando arquivos

 

<%
'Instancia o objeto Archive.
Set Arch = CreateObject("SoftArtisans.Archive")
 
'Informe o caminho do arquivo.zip
ArchiveName = "e:\home\web\teste\arquivo.zip"
 
'Informe o caminho do diretório de onde os arquivos serão descompactados.
ExtractPath = "e:\home\web\teste\imagens"
 
'Formato da propriedade ArchiveType = 1 adiciona ou extrai um arquivo.
Arch.ArchiveType = 1
 
'Abre o arquivo.zip existente.
Arch.OpenArchive ArchiveName
 
'O método count retorna a quantidade de arquivos compctados no arquivo.zip.
Response.Write ("O diretório<b> "& ArchiveName &"</b> contém <b>" & Arch.Entries.Count & "</b> arquivos que são :<br>")
 
'Loop para varrer todos os arquivos compactados.
For Each item in Arch.Entries
'O método name no loop retorna os nomes dos arquivos compactados.
Response.Write "<br><font color=red>" & item.name & "</font>"
Next
 
'O método ExtractPath informa onde será descompactado os arquivos.
Arch.ExtractPath = ExtractPath
 
'O método Extract descompacta os arquivos
Arch.Extract()
 
'Fecha o arquivo.zip
Arch.CloseArchive
 
'Destruíndo objeto
set Arch = nothing
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.