Forçar Download De Arquivo

Dezembro 3, 2003

Ola a todos,

To com seguinte duvida, se alguém puder me ajugar.... ;)

Como q faço para obrigar o download de um arquivo?

Tenho uma aplicação q lista os arquivos de uma determinada pasta, queria que quando o usuario clicar em um arquivo, fizesse o download do mesmo para o seu pc.

Este é o codigo que uso para listar os arquivos, colocando um HREF, quando você clica no arquivo, exibi o erro de que a pasta não pode ser exibida.

<%@ Language=VBScript %>
<html>

<head>
<title></title>
</head>

<body>
<%

Dim fso, f, fl, fc, s,name
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath("\"))
Set fc = f.files
%>
<table>
<tr>
  <td><b>Nome Arquivo </b></td>
  <td><b>Tamanho (bytes)</b></td>
  <td><b>Data Criação</b></td>
  <td><b>Data do Último Acesso</b></td>
  <td><b>Data da Última Atualização</b></td>
</tr>
<%
For Each fl in fc
Response.Write("<tr>")
Response.Write("<td><a HREF=" & fl.name & ">" & fl.name & "</a></td>")
Response.Write("<td>" & fl.size & "</td>")
Response.Write("<td>" & fl.DateCreated & "</td>")
Response.Write("<td>" & fl.DateLastAccessed& "</td>")
Response.Write("<td>" & fl.DateLastModified & "</td>")
Response.Write("</tr>")
Next
%>
</table>
</body>
</html>

Valeu....

Decio · Dezembro 4, 2003

Não entendi qual é o erro . Da forma como esta seu código , caso alguém clique no link vai acontecer o seguinte: Se for arquivos html,asp,txt,pdf,figuras,etc... serão abertas pelo navegador e se for algum arquivo que não possa ser aberto pelo navegador sera feito o download, tipo arquivos .zip. Até ai esta correto.O q você gostaria de fazer?

Dezembro 4, 2003

E ai Decio,

é isso mesmo q esta acontecendo, mais estou não estou querendo que estes arquivos sejam abertos no navegador.

Estava querendo que quando o usuario clique no link(em qualquer extensao de arquivo), apareça aquela janela de download do windows, com a opcao de salvar ou abrir o arquivo.

Achei este codigo, que força o download do arquivo, mais não estou conseguindo colocar ele junto com o codigo que lista os arquivos.....

<%
Response.Buffer = True
login="teste"
response.AddHeader "Content-Type","application/x-msdownload"
response.AddHeader "Content-Disposition","attachment; filename=tup.jpg"
Response.Flush
Const adTypeBinary = 1
Dim strFilePath

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary

objStream.LoadFromFile Server.MapPath("tup.jpg")
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush
%>

não tenho muito a manha, estou fazendo este exemplo para estudo, se der para me ajudar.....

Pensei em criar uma outra pag. com este codigo acima e chama-la no link passando o nome do arquivo como parametro. Mais não estou conseguindo

Valeu...

Entrar

Forçar Download De Arquivo

Pergunta

Guest alexbh

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Decio

Link para o comentário

Compartilhar em outros sites

Guest alexBH

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades