Cita: si lo hago así, pero coje toda la ruta.
Ok, en general lo podrías hacer así:
Cita: With OpenFileDialog1
.
InitialDirectory = Environment.SpecialFolder.System
.Filter = "....."
.ShowDialog()
Dim sFile As String = .FileName
'Obtengo el nombre del file
sFile = sFile.Substring(sFile.LastIndexOf("\") + 1)
MessageBox.Show(sFile)
End With
Espero que sea lo que busques...