Nombre del objeto seleccionado en un cuadro de diálogo

teresa
06 de Diciembre del 2003
Necesito ayuda:
Tengo el siguiente código que abre un cuadro de diálogo y recupera la dirección del objeto seleccionado, pero quiero recuperar sólamente el nombre.
' Muestre el cuadro de diálogo Abrir archivo de Office
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
'muestra un cuadro de dialogo (tipo de cuadro de dialogo abrir archivo)
.Title = "Seleccione la imagen"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "TIFs", "*.tif"
.FilterIndex = 2 'el tipo de imagen predeterminado jpegs
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path 'el cuadro de dialogo se abre en la dirección de la aplicación
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1)) 'trim es una función que muestra una cadena sin espacios
El objetivo es tener en una base de datos el nombre de las imágenes en vez de las imágenes y poder grabar estas junto a la bd en un cd y que siga funcionando, para ello quiero recuperar el nombre de la imagen seleccionada no la ruta completa.