Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/12/2014, 15:18
Avatar de aRTeX
aRTeX
 
Fecha de Ingreso: mayo-2005
Mensajes: 374
Antigüedad: 19 años, 6 meses
Puntos: 0
perder datos de una clase

Tengo una aplicación con una clase que carga archivos, pero cuando paso de un evento a otro la información de la instancia se pierde y no se mantiene activa en el programa.

adjunto clase.
Código:
Imports System.IO

Public Class Archivo
    Public Nombre As String
    Public Carpeta As String
    Public Ext As String
    Public Mensaje As String
    
    Public Sub Extension()
        Ext = Path.GetExtension(Nombre)
    End Sub

    Public Function Cargar(ByVal txtruta As Object) As Boolean
        Dim fecha = Format(Date.Now, "yyyyMMdd")

        Try
            Nombre = fecha & "-" & Path.GetFileName(txtruta.PostedFile.FileName)
            Call Extension()
            Carpeta = "C:\Archivos\" & Nombre
            Call Existe()
            If Validaextension(".csv") = True Then

                txtruta.PostedFile.SaveAs(Carpeta)
                Mensaje = "Archivo Cargado correctamente"
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Mensaje = "Error al cargar el archivo"
            Return False
        End Try
    End Function

    Public Function Validaextension(ByVal extPer As String) As Boolean
        If extPer = Ext Then
            Return True
        Else
            Mensaje = "La extension del archivo no es permitido, debe ser CSV"
            Return False
        End If
    End Function

    Public Function Existe() As Boolean
        If File.Exists(Carpeta) Then
            File.Delete(Carpeta)
            Return True
        Else
            Return False
        End If
    End Function

    Public Sub Borrar()
        File.Delete(Carpeta)
    End Sub
End Class
Saludos.