Como eu faco o download de um arquivo log.txt da minha pasta?

[mvca 0]

Como eu faco o download de um arquivo log.txt da minha pasta?Alguem sabe essa, por favor me ajudem!!!!!!!!!!Marcus

[mvca 0]

o q ta errado nesse script, por que nao faz o download???SCRIPT:<%@ Language=VBScript %><%dim varPathdim varFilevarErro = 0varPath = Server.MapPath(".")varFile = "log.txt"varArquivo = varPath & varFile'Response.Write(varPath)'Response.End()'***********************************'VERIFICA SE ENCONTROU ALGUM ERRO NO CAMINHO'Se o arquivo existe'***********************************Set objFS = Server.CreateObject("Scripting.FileSystemObject")If Not objFS.FileExists(varArquivo) ThenvarMSG = varMSG & "<br><br>• O Arquivo não existe no servidor selecionado, tente em outro."varErro = 1End IfSet objFS = NothingIf varErro = 1 ThenResponse.Write("Verefique o(s) Erro(s) abaixo : <br><br>")Response.Write(varMSG)Response.Write("<script>self.close();</script>")Response.End()End If'***********************************'VERIFICA SE ENCONTROU ALGUM ERRO NO CAMINHO'Avisamos que o modelo do arquivo será para download'***********************************response.AddHeader "Content-Type","application"'***********************************'Identificamos o nome que queremos para o arquivo de destino'mude o Filename para o nome que você deseja !'***********************************response.AddHeader "Content-Disposition","attachment; filename=" & varFileResponse.FlushResponse.Buffer = TrueConst adTypeBinary = 1Set objStream = Server.CreateObject("ADODB.Stream")objStream.OpenobjStream.Type = adTypeBinary'***********************************'Informe aqui o caminho completo do arquivo no servidor,'se você não souber o caminho completo, mude o "E:\Home..." por'Server.MapPath("Nome_Do_Arquivo")'***********************************objStream.LoadFromFile varArquivo 'Server.MapPath(Path)Response.BinaryWrite objStream.Read'***********************************'Destroi objeto'***********************************objStream.CloseSet objStream = NothingResponse.Flush%>

[mvca 0]

vamos la galera me ajudem!!!!!

[Salgado 4]

Apresenta alguma mensagem de erro?

[mvca 0]

Nao apresenta erro nenhum so fecha a tela do internet explore!!!!!

[Salgado 4]

Acrescente uma "\" nesse trecho:

varArquivo = varPath & varFile

Assim:

varArquivo = varPath &"\"& varFile

[mvca 0]

Valeu salgado, você é fera d+!!!!!!