Function GetFileTitle(ByVal FileName As String) As String
    Dim i As Long
    i = InStrRev(FileName, "\")
    If i Then FileName = Right(FileName, Len(FileName) - i)
    i = InStrRev(FileName, ".")
    If i Then FileName = Left(FileName, i - 1)
    GetFileTitle = FileName
End Function
' ==== Utilisation : 
' Debug.Print GetFileTitle("C:\windows\calc.exe")
'

public static string GetName(string file, bool extension) 
{
    if (extension) return Path.GetFileName(file);
    else return Path.GetFileNameWithoutExtension(file);
}

//Retourne le nom du fichier avec son extension
MessageBox.Show(GetName(@"C:\Windows\Calc.exe", true));

//Retourne le nom du fichier sans son extension
MessageBox.Show(GetName(@"C:\Windows\Calc.exe", false));

Public Module _MyFileFunctions
#Region " Exention de fichier; Nom de fichier "
   ''' <summary>
   ''' Retourne l'extention d'un fichier
   ''' </summary>
   ''' <param name="File">Chemin d'acces vers le fichier</param>
   Public Function GetFileExtension(ByVal File As String) As String
      Try
         Dim Fileinfo As New System.IO.FileInfo(File)
         Return Fileinfo.Extension
      Catch ex As Exception
         Return Nothing
      End Try
   End Function
   ''' <summary>
   ''' Retourne le nom d'un fichier
   ''' </summary>
   ''' <param name="FullFilePath">Chemin complet du fichier</param>
   ''' <param name="WithExtension">Indique si l'extension doit être fournie avec.</param>
   Public Function GetFileName(ByVal FullFilePath As String, _
   Optional ByVal WithExtension As Boolean = True) As String
      Try
         If WithExtension Then
            Return Path.GetFileNameWithoutExtension(FullFilePath)
         Else
            Return Path.GetFileName(FullFilePath)
         End If
      Catch ex As Exception
         Return Nothing   End Try
   End Function
#End Region
End Module