Extraer Nombre de una Imagen ya Cargada en un Picture

[Ever Cerna]

Buenas, x acá molestándolos nuevamente

Esta vez necesito sacar la nombre de una imagen ya cargada en un PICTURE o IMAGE, osea extraerla, Por ejemplo si cargo una imagen de C:\Imagenes\Foto.jpg en un PICTURE, necesito que muestre en un LABEL, el nombre de la imagen ya cargada osea Foto. Estuve buscando por google y no encontre un ejemplo claro.

Espero sus ayudas, muchas gracias

Salu2.

[Waldo]

no, para mi eso es imposible.
Lo que podes hacer es al momento de cargar la imagen, guardar en la propiedad "TAG" del control Picture, o Image, la ruta de la imagen y desp leerla

[E N T E R]

Se me ocurre asi:

Código: (VB) [Seleccionar]

Private Sub Form_Load()
   
    Dim xFile As String
    xFile = "c:\foto.jpg"
   
    Picture1.Picture = LoadPicture(xFile)
    Picture1.Tag = xFile
   
    MsgBox xFile
   
End Sub

Saludos...

[seba123neo]

por lo que entendi, el quiere solo sacar el nombre del path, no el path entero...

para hacer eso hay muchisimas formas, desde apis que ya hacen eso hasta funciones comunes, aca te dejo algunas:

Código: (VB) [Seleccionar]

Private Declare Sub PathStripPath Lib "shlwapi.dll" Alias "PathStripPathA" (ByVal pszPath As String)
 
Public Function StripPath(ByVal sPath As String) As String
  Call PathStripPath(sPath)
  StripPath = sPath
End Function
otra forma:

Código: (VB) [Seleccionar]

    Function getFileName(ByVal path As String) As String
       getFileName = Mid$(path, InStrRev(path, "\") + 1)
    End Function
otra forma.

Código: (VB) [Seleccionar]

    Public Function GetFileName(ByRef vPath As String) As String
       GetFileName = Right$(vPath, Len(vPath) - InStrRev(vPath, "\"))
    End Function
saludos.