Saltar al contenido

Capturar Nombre de Imagen


Recommended Posts

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?
Enlace a comentario
Compartir con otras webs

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

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.