Visual Basic.NET - obtener nombre de archivo

necesito ayuda tengo un input type=file y este de me da como resultado la ruta de todo el archivo si solo necesito el nombre como trunco lo demas??????
C:\\Documents and Settings\\lucila\\Mis documentos\\boton_1.png
y solo kiero boton_1.png como le hago??? ademas ke esta cadena la necesito insertar en mi base de datos,te agradeceria si me ayudas ,gracias

Hola por lo que comentas, creo que esto te puede ayudar (+ o -):

Dim i as integer
dim ultima_barra as integer
dim cadena as string
dim archivo as string
dim caracter as char
'mete la ruta completa en una variable:
cadena="C:\\Documents and Settings\\lucila\\Mis documentos\\boton_1.png"
'con este bucle recorremos toda la cadena caracter a caracter e identificamos 'cual es la ultima barra (\) de la cadena
For i=0 to len(cadena) - 1
caracter=cadena.chars(i)
if caracter="\" then
ultima_barra=i
end if
next
'Una vez obtenida la posición de la última barra cortamos la cadena (ruta 'completa) desde esta posición hasta el final
archivo=mid(cadena,ultima_barra)

*******
La función mid Devuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena.
Su sintaxis es:
mid(cadena,inicio,fin)
Lo que hace es cortar de "cadena" el número de caracteres que van desde inicio a fin. Si se omite fin, corta desde inicio hasta el final de la cadena.
Lo que no recuerdo es si inicio empieza a contar desde el caracter 0 o el 1.
Si empieza desde 1, la función correcta es archivo=mid(cadena,ultima_barra +2)
si empieza desde 0, será archivo=mid(cadena,ultima_barra +1)

Puedes comprobar si esta devolviendo el nombre completo del archivo con un msgbox al final de todas las intrucciones
msgbox(archivo)

si archivo contiene "\boton_1.png" o "oton_1.png" o algo asi, juego con los indices del bucle o de la funcion mid que se me habrá escapado alguno por arriba o por abajo.

Un saludo.

Otra solucion parecida

Dim cadena as string = "C:\\Documents and Settings\\lucila\\Mis documentos\\boton_1.png"
Dim i as integer
Dim Archivo as string

i = cadena.LastIndexOf("\")
If i <> -1 then
archivo = cadena.substring(i+1,cadena.Length - i - 1)
end if

Si señor, muy buena solución.

Bastante, bastante mejor que la mía.
..... y mucho mas eficiente.

Me la apunto para la próxima vez.

Un saludo.

gracias chicos, por todo pero si esta cadena la necesito insertar en una base de datos como lo hago.....