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.