Si tenes una ruta y solo queres el nombre del archivo, esta funcion sirve para eso...
Solamente se envia la ruta completa y devuelve el nombre del archivo.
Código vb:
Ver original'************** PROGRAMADO POR CULD *****************
'****************************************************
Public Function Nombre_Archivo(Ruta As String)
Dim X As Integer
Dim Hasta As Integer
'Recorro de atras para adelante
For X = Len(Ruta) To 1 Step -1
'separo caracter por caracter, hasta encontrar la marca que seria el \
If Mid(Ruta, X, 1) = "\" Then
'como encontre esa marca, significa que ya termino el nombre del archivo
'entonces resto el largo total de toda la ruta, menosla posicion en la que encontre
'ese resultado es el largo del nombre del archivo
Hasta = Len(Ruta) - X
Exit For
End If
Next X
'separo de derecha a izquierda la cantidad de caracteres que corresponde al nombre del archivo
Nombre_Archivo = Right(Ruta, Hasta)
End Function