Arquivo TXT

[Gilberto Jr 26]

Bom dia;

 

Eu fiz o script que pega as informações do banco de dados e gera um arquivo txt. E apos gerar faço o download desse arquivo.

 

O meu problema esta sendo que o nome do arquivo e esta saindo dentro do arquivo.

 

o código que estou usando é

' Criando o objeto de gravação do arquivo
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' Preparando o caminho (Path) do arquivo
caminho = Server.MapPath("arquivos/"&pathrede&"/"&pathloja&"/"&replace(replace(replace(mask_data(Date),"-","")," ",""),":","")&".txt")
 
Set GRAVAR = FSO.CreateTextFile(caminho,true)
 
'Foi criado o objeto e logo após busca o htm em caminho para gravar. Se não achar, vai criá-lo (devido à marcação TRUE)
while rs.eof=false
 
GRAVAR.Writeline (rs("notafiscal")&" "&rs("valor")&" "&rs("valoricms")&" "&mask_datac(rs("recebimento")))
 
rs.movenext
wend
 
 
GRAVAR.close
 
arquivo = replace(replace(replace(mask_data(Date),"-","")," ",""),":","")&".txt"
 
dim objStream
set objStream = server.createObject("ADODB.Stream")
with (response)
.buffer = true  
.addHeader "Content-Type","application/x-msdownload"
.addHeader "Content-Disposition","attachment; filename="&arquivo
.flush  
end with
with (objStream)
.open  
.type = 1  
.loadFromFile server.mapPath("arquivos/"&pathrede&"/"&pathloja&"/"&arquivo)
end with
response.binaryWrite objStream.read
set objStream = nothing
response.flush
 
Response.Clear

 

Se alguém já passou por algum problema parecido e conseguiu resolver se puder me ajudar.

 

 

Att;