locked
AYUDA POR FAVOR: Generar un archivo y guardarlo en la pc del cliente RRS feed

  • Question

  • Hola buenas tardes

    alguien me puede ayudar

    estoy tratando de generar un archivo pero lo quiero almacenar en una carpeta en la máquina del cliente

    anexo código, para ver que me falta:

    Protected Sub RdB_Genera_Anexoa_CheckedChanged(sender As Object, e As System.EventArgs) Handles RdB_Genera_Anexoa.CheckedChanged
            Txt_Fech_Gen.Text = Calendar_FechaGeneración.SelectedDate
            Calendar_FechaGeneración.Visible = False
            Label1.Visible = False
            GeneraTXT("Anexoa_altas.txt")
        End Sub
    
        Public Sub GeneraTXT(ByVal NombreArchivoTXT As String)
            Dim PathArchivo As String
            Dim i As Integer
            Try
                
    
                If Directory.Exists("C:\SAR\archivos\/" & Format(Today.Date, "ddMMyyyy")) = False Then ' si no existe la carpeta se crea
                    Directory.CreateDirectory("c:\SAR\archivos\" & Format(Today.Date, "ddMMyyyy"))
                End If
                Dim DT As New DataTable
    
                Response.Clear()
                Response.Buffer = True
    
                PathArchivo = "C:\sar\archivos\" & NombreArchivoTXT & Format(Today.Date, "ddMMyyyy") & ".txt"
    
                ''Response.ContentEncoding = System.Text.Encoding.UTF8
                Response.ContentEncoding = System.Text.Encoding.GetEncoding(1252)
                Response.AddHeader("Content-Type", "application/download")
                Response.AddHeader("content-disposition", "attachment;filename=" & NombreArchivoTXT)
                'Response.AddFile(&PathArchivo)
    
                Dim oStringWriter As New System.IO.StringWriter
                DT = oSar.GeneraArchivo_anexoa_altas(Txt_Fech_Gen.Text)
                For Each dr As DataRow In DT.Rows
    
                    Dim list As New List(Of String)
    
                    'Obtenemos los datos del dataset
                    For Each dc As DataColumn In dr.Table.Columns
                        list.Add(dr(dc.ColumnName).ToString())
                    Next
                    Response.Output.Write(String.Join("", list.ToArray()))
                    Response.Output.Write(vbCrLf)
    
                Next
    
                Response.Flush()
                Response.End()
    
                'Finally
            Catch ex As Exception
                Throw New System.Exception(ex.Message.ToString)
            End Try '{Unable to evaluate expression.}
            'MsgBox("Error al Guardar la ingormacion en el archivo. " & ex.ToString, MsgBoxStyle.Critical, Application.ProductName)
            'oStringWriter.Close() ' cerramos
        End Sub
    
        Protected Sub RdB_altas_Sar_CheckedChanged(sender As Object, e As System.EventArgs) Handles RdB_altas_Sar.CheckedChanged
            Dim chek As New DataTable
            chek = oSar.ValidaAltasSar
            GridView1.DataSource = chek
            GridView1.DataBind()
            RdB_Genera_Anexoa.Enabled = True
            'Dim script As String = "alert('Total de Registros Insertados rfcno_empsar',@TotalRegistrosInsertados_rfcno_empsar);"
            'ScriptManager.RegisterStartupScript(UpdatePanel1, Me.GetType, "", script, True)
        End Sub

    Thursday, May 23, 2013 9:36 PM

All replies

  • Hi,

    Since we just support the English language issue, you would select the correct language forum for this specific issue. I will move this thread to the Off-Topic forum. Thanks for your understanding.

    Best Regards,


    Jack Zhai [MSFT]
    MSDN Community Support | Feedback to us
    Develop and promote your apps in Windows Store
    Please remember to mark the replies as answers if they help and unmark them if they provide no help.

    Friday, May 24, 2013 2:05 AM