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;