aspZip
1.0.0
Direitos autorais (c) 2012 RCDMK <[email protected]>
É concedida permissão, gratuitamente, a qualquer pessoa que obtenha uma cópia deste software e dos arquivos de documentação associados (o "Software"), para negociar o Software sem restrições, incluindo, sem limitação, os direitos de usar, copiar, modificar, mesclar, publicar, distribuir, sublicenciar e/ou vender cópias do Software e permitir que as pessoas a quem o Software é fornecido o façam, sujeito às seguintes condições:
O aviso de direitos autorais acima e este aviso de permissão serão incluídos em todas as cópias ou partes substanciais do Software.
O SOFTWARE É FORNECIDO "COMO ESTÁ", SEM GARANTIA DE QUALQUER TIPO, EXPRESSA OU IMPLÍCITA, INCLUINDO, MAS NÃO SE LIMITANDO ÀS GARANTIAS DE COMERCIALIZAÇÃO, ADEQUAÇÃO A UM DETERMINADO FIM E NÃO VIOLAÇÃO. EM HIPÓTESE ALGUMA OS AUTORES OU DETENTORES DE DIREITOS AUTORAIS SERÃO RESPONSÁVEIS POR QUALQUER RECLAMAÇÃO, DANOS OU OUTRA RESPONSABILIDADE, SEJA EM UMA AÇÃO DE CONTRATO, ATO ILÍCITO OU DE OUTRA FORMA, DECORRENTE DE, OU EM CONEXÃO COM O SOFTWARE OU O USO OU OUTRAS NEGOCIAÇÕES NO SOFTWARE.
Inclua o arquivo da classe na página desejada e instancie a classe
dim zip
set zip = new aspZip
Abra um arquivo ZIP (crie ou abra um arquivo existente no disco)
zip.OpenArchieve("pathtofile.zip") ' this creates the archieve if it doesn't exists
Adicione alguns arquivos ou pastas
zip.Add("..src")
zip.Add(".default.asp")
Grave os arquivos no disco
zip.CloseArchieve()
Se você deseja extrair o conteúdo de um arquivo ZIP, use o método ExtractTo(DestinationPath)
zip.ExtractTo(".test")
Se o arquivo não contiver arquivos, ele será excluído quando o objeto for destruído.
Observação:
Na versão atual (0.4) o problema de extrair apenas estruturas de diretórios deve ser resolvido, mas os tempos de processamento são muito mais longos devido à espera pela criação do diretório. O tempo de espera extra mínimo é de 500 ms.
