Buenas tardes, en un formulario cargo una imagen de un producto a un control Image y capturo en un label la ruta de la imagen, el Label1 queda de esta manera: C:\Users\fede_\Documents\NUEVA CARPETA\IMAGENES\INSUMOS\TECLADO GENIUS.jpg

Hasta ahí todo bien, ahora necesito capturar solamente el nombre de la imagen sin la ruta en el Label2.

En este ejemplo el Label2 tiene que quedar asi: TECLADO GENIUS.jpg

Como puedo lograrlo?

Hola @federtuc

Prueba si es lo que necesitas.

Qué tengas un buen día! Suerte!

Sub capturar_nombre()
Dim cruta1 As String, cpos1 As String, cimg1 As String

cruta1 = "": cruta1 = "C:\Users\fede_\Documents\NUEVA CARPETA\IMAGENES\INSUMOS\TECLADO GENIUS.jpg"
cpos1 = "": cpos1 = InStrRev(cruta1, "\")
cimg1 = "": cimg1 = Right(cruta1, Len(cruta1) - cpos1)
MsgBox "Nombre de la imagen: " & Chr(13) & Chr(13) & cimg1, vbInformation, "Funciones de cadena de texto"

End Sub

 

Lo mismo que tierra_pampa, pero usando Label1 y Label2:

Label2 = Mid(Label1, InStrRev(Label1, "\") + 1)

 

Editado el el 22 de agosto4 años por Antoni