Otra forma de obtener el nombre del archivo a partir de la ruta:
Código vb:
Ver originalPublic Function Nombre_Archivo(Ruta As String)
Dim Partes() As String
Partes = Split(Ruta, "\")
Nombre_Archivo = Partes(UBound(Partes))
End Function
O también:
Código vb:
Ver originalPublic Function Nombre_Archivo(Ruta As String)
Nombre_Archivo = Right(Ruta, Len(Ruta) - InStrRev(Ruta, "\"))
End Function