[Resolvido] zip múltiplos arquivos usando file collection

[xanburzum 169]

zip múltiplos arquivos usando file collection

 

Obrigatório: componente free

http://www.xstandard.com/page.asp?p=C9891D...60-2267ED6763A7

 

 

<%

dim Ftype
Ftype = ".htm" ' escolher a extensão do arquivo que você deseja colocar na pasta zip

dim meuNome
meuNome = "meuNome.zip" 'nome para seu arquivo ,sendo criado dinamicamente pela data e hora atual 
   ' use "M" & 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:\yourpath\public_html\backup\test" ' mude para a pasta que você deseja 


'file scripting object
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
'Returna folder object
Set objFolder = objFileScripting.GetFolder("D:\seupath\public_html\backup\suapasta\") 
'mudar a sua pasta com os arquivos de zip 
'egresso recolha arquivo na pasta
Set filecollection = objFolder.Files
'place each file into the zip file
For Each filename In filecollection

objZip.Pack "D:\seupath\public_html\backup\suapasta\*" & Ftype,"D:\seupath\public_html\backup\teste\" & meuNome
response.write " ...lendo arquivos... " & filename & " <br>"
Next

response.write "<br><br><b>Aqui está o seu arquivo: " & "http://suaurl/backup/teste/" & meuNome & "<b>" 'Alterar URL de sua pasta
Set objZip = Nothing
%>