[Resolvido] Download Multiplos

[Teteu 0]

Olá pessoal...

 

Gostaria de saber se há como fazer downloads múltiplos.. Já consegui colocar upload multiplos de arquivos... E downloads... casei pelo google... e não achei...

 

Alguém sabe se isso é possivel?

[hargon 64]

Você diz forçar o download? Se for, acho que isso não é possível.

[xanburzum 169]

download multiplos só atraves de um software especifico, se kiser para estudo tenho um sistema de download, ótimo, você pode escolher a sessaun do download , pode fazer varios downloads, contanto, que inicie um e outro em seguida, como se fosse donwload normal , iniciando um e outro depois...

[Teteu 0]

Eu gostaria sim de ver.

 

Pois tenho um sistema aqui, onde gostaria de poder selecionar vários arquivos e baixar. Sem usar software.

 

O Gmail, utiliza de um esquema de baixar todos os anexos do e-mail, zipando os arquivos. Isso seria muito difícil de fazer?

[hargon 64]

Isso aí já é outra coisa. A forma que o Gmail faz é compactar os arquivos e disponibilizar a compactação. Isso é possível sim, desde que seu servidor tenha alguma componente para realizar a compactação. Faz uma pesquisa aqui no Fórum que encontrará alguns exemplos.

 

Qualquer dúvida poste aqui.

[Teteu 0]

Já fiz uma busca.. agora to verificando se o servidor, tem suporte.....

 

Valeu..

[Teteu 0]

Achei o que precisava...

 

Na locaweb é SoftArtisans Archive.

 

Os exemplos são:

 

Compactando arquivos

 

Arquivo: geraArquivoCompactado.asp(exemplo)

 

<%
'Instancia o objeto Archive.
Set Arch = CreateObject("SoftArtisans.Archive")
 
'Informe o caminho do arquivo.zip
ArchiveName = "e:\home\SEU_LOGIN_FTP\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\SEU_LOGIN_FTP\web\imagens\figura1.jpg"
Arquivo2 = "e:\home\SEU_LOGIN_FTP\imagens\teste\figura2.jpg"
Arquivo3 = "e:\home\SEU_LOGIN_FTP\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

Arquivo: descompactaArquivo.asp(exemplo)

<%
'Instancia o objeto Archive.
Set Arch = CreateObject("SoftArtisans.Archive")
 
'Informe o caminho do arquivo.zip
ArchiveName = "e:\home\SEU_LOGIN_FTP\web\teste\arquivo.zip"
 
'Informe o caminho do diretório de onde os arquivos serão descompactados.
ExtractPath = "e:\home\SEU_LOGIN_FTP\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
%>

fonte: http://wiki.locaweb.com.br/pt-br/SoftArtisans_Archive

 

valeu pela ajuda...

[hargon 64]

Muito bom. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Teteu 0]

Só para completar o post. Onde só postei como usar um arquivo zip que já exista no servidor..

 

Para criar um arquivo novo:

 

Set Arch			= CreateObject("SoftArtisans.Archive")
Arch.ArchiveType	= 1

Arch.CreateArchive ("C:\arquivo.zip")

Arquivo			= "C:\arquivo.txt"

Arch.AddFile	Arquivo, True	

Arch.CloseArchive

set Arch = nothing