Ver Mensaje Individual
  #1 (permalink)  
Antiguo 13/07/2010, 17:21
carlin2010
 
Fecha de Ingreso: julio-2010
Mensajes: 1
Antigüedad: 14 años, 8 meses
Puntos: 0
Response.AppendHeader - No funciona

Amigos,
Por favor necesito de su ayuda, no se que sucede pero necesito abrir un archivo TXT generado en una pagina ASP, les dejo el codigo que estoy utilizando. MUCHAS GRACIAS DE ANTEMANO.

Protected Sub ibtnTextoGR_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibtnTextoGR.Click
Try

Dim objEntidadBE As New RankingBE
Dim objEntidadBC As New ConvenioBC
objEntidadBE = GetEntidad()

Dim dt As Data.DataTable

dt = objEntidadBC.GETLISTADGPP(objEntidadBE, "")

If dt.Rows.Count > 0 Then

Dim FILE_NAME As String = Server.MapPath("MyFileGR.txt")

'Si existe el archivo se borra
If File.Exists(FILE_NAME) Then
File.Delete(FILE_NAME)
End If

'Crea el archivo TXT
Dim sr As StreamWriter = File.CreateText(FILE_NAME)

'Escribo en el archivo TXT
For I As Integer = 0 To dt.Rows.Count - 1
Dim TipoGOB As String = dt.Rows.Item(I)("TIPO_GOBIERNO")
Dim NumeroCONV As String = dt.Rows.Item(I)("NUM_CONVENIO")
sr.WriteLine(TipoGOB & " " & NumeroCONV)
Next

'Cierro el archivo generado TXT
sr.Close()

'---- PROCEDIMIENTO PARA CARGAR EL ARCHIVO TXT GENERADO -----
'Abrir el Archivo Generado
Dim objStream As System.IO.Stream = New FileStream(FILE_NAME, FileMode.Open)
Dim FileSize As Long
FileSize = objStream.Length

Dim Buffer(CInt(FileSize)) As Byte
objStream.Read(Buffer, 0, CInt(FileSize))
objStream.Close()

'Response.Clear()
Response.BufferOutput = True
Response.ContentType = "text/plain"

'Abre el archivo a GRABAR pero en formato ASP ó HTML y no en TXT
Response.AppendHeader("content-disposition", "attachment; Server.MapPath(FILE_NAME)")
Response.BinaryWrite(Buffer)
Response.End()

End If

Catch ex As Exception
ScriptManager.RegisterClientScriptBlock(udpDatos, udpDatos.GetType, "Error", "alert('Error al exportar los datos')", True)
End Try
End Sub