compactar/descompactar com XZip

[xanburzum 169]

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

[hargon 64]

Boa dica Xan.

[Ted k' 126]

gostei mesmo, tem uma galera que fica pedindo ajuda nisso, boa Xanildo!! (o homem dos scripts hehe!)

[xanburzum 169]

ja me ajudou muito esse...

 

X@nBuRzUm