none
no borra los archivos del servidor RRS feed

  • Pregunta

  • ayuda porfa vor

    NO BORRA LOS ARCHIVOS DEL SERVIDOR

     Dim sExt As String = String.Empty
            Dim sName As String = String.Empty
            Dim Ruta As String
            'Dim ssName As System.Web.HttpPostedFile
    
            Ruta = MapPath("~/procesos/sar/archivos/")
            'Valida la extensión del archivo
            If FileUpload1.HasFile Then
                sName = FileUpload1.FileName
                sExt = Path.GetExtension(sName)
    
                   
    
    
                    If ValidaExtension(sExt) Then
                        'Fin validación de extensión de archivo
    
                        FileUpload1.PostedFile.SaveAs(Ruta & FileUpload1.FileName)
                        'declaramos la Tabla donde añadiremos los datos y la fila correspondiente
                        Dim MiTabla As DataTable = New DataTable("anexoa_error")
                        Dim MiFila As DataRow
                        'declaramos el resto de variables que nos harán falta
                        Dim pos As Boolean = False
                        Dim i As Integer
                        Dim fieldValues As String()
                        Dim miReader As IO.StreamReader
                        Try
                            'Abrimos el fichero y leemos la primera linea con el fin de determinar cuantos campos tenemos
                            miReader = File.OpenText(Ruta & FileUpload1.FileName)
                            Dim Separador As String = "*"
                            fieldValues = miReader.ReadLine().Split(Separador)
                            'Creamos las columnas de la cabecera
                            For i = 0 To fieldValues.Length() - 1
                                MiTabla.Columns.Add(New DataColumn(fieldValues.ToString()))
                            Next
                            'Continuamos leyendo el resto de filas y añadiendolas a la tabla
                            While miReader.Peek() <> -1
                                fieldValues = miReader.ReadLine().Split(Separador)
                                MiFila = MiTabla.NewRow
                                For i = 0 To fieldValues.Length() - 1
                                    MiFila.Item(i) = fieldValues(i).ToString
                                Next
                                MiTabla.Rows.Add(MiFila)
                            End While
                            'Cerramos el reader
                            miReader.Close()
                        Catch ex As Exception
                            'Gestionamos las excepciones, Aqui cada uno puede hacer lo que crea conveniente: Mostrar un error en Javascript en este caso y devolver el Datatable vacío
                            Dim mensaje As String
                            mensaje = "alert ('Ha ocurrido el siguiente error al importar el archivo: " + ex.ToString + "');"
                            System.Web.UI.ScriptManager.RegisterStartupScript(Page, Me.GetType(), "ErrorConstruirDatatable", mensaje, True)
                        Finally
                            'Si queremos ejecutar algo exista excepción o no
                        End Try
    
                        'Devolvemos el DataTable si todo ha ido bien
                        oSar.ImportaDatosanexoa_err_est(MiTabla)
                        ' viene de validar el tipo de archivo
                        LblMensaje.Text = "¡Archivo cargado correctamente!"
                    Else
                        LblMensaje.Text = "¡El archivo no es de tipo texto!"
                    End If
                Else
                    LblMensaje.Text = "!Seleccione el archivo que desea subir!"
                End If
                System.IO.File.Delete(Server.MapPath("rechazo_anexoa.ERROR"))  ' CON ESTA LINEA QUIERO QUE LOS BORRE'
        End Sub


    viernes, 1 de marzo de 2013 23:46

Todas las respuestas

  • hola

    veo que apuntas a eliminar archivo de un sitio web, detecto la liena donde se elimina

    pero que es este archivo rechazo_anexoa.ERROR de donde salio, quien lo creo ?

    creo que deberias explicarte algo mas


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    sábado, 2 de marzo de 2013 5:30
  • El archivo que pongo ahí es el que quiero eliminar del servidor

    una vez ya utilizado

    en realidad quiero borrar los *.ERROR

    lunes, 4 de marzo de 2013 15:04