adjunto clase.
Código:
Saludos. 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