Public Function  Nomfichier(nomcomplet As String) As String
If Dir(nomcomplet) <> ""Then
Dim SplitChemin() As String
SplitChemin = Split(nomcomplet, "\", -1, vbTextCompare)
Nomfichier = SplitChemin(UBound(SplitChemin))
Else
MsgBox ("Le fichier n'existe pas")
End If

End Function

'Exemple d'utilisation
Private Sub CommandButton1_Click()
Nomfichier ("C:\Classeur1.xls")
End Sub

 Private Function GetFileName(ByVal Path As String) As String
        Return New IO.FileInfo(Path).Name
    End Function

// using System.IO;
string filenameWExt = Path.GetFileNameWithoutExtension(myPath); 
string filename = Path.GetFileName(myPath);

char *FileName (char *path)
{
    char *c = path, *ret = path;
    if(c == 0) return 0;
    while(*c)
    {
        if(*c == '\\')  ret = c+1;
        c++;
    }
    return ret;
}

Function GetFileNameFromPath(ByVal sPath As String) As String
    GetFileNameFromPath = Right$(sPath, Len(sPath) - InStrRev(sPath, "\"))
End Function
'   MsgBox  GetFileNameFromPath("C:\MesData\Classeur1.xls")
  

public String getName(String path){
         return path.substring(path.lastIndexOf(java.io.File.separatorChar)+1);
     }
 //ou alors
     public String getName2(String path){
         return new java.io.File(path).getName();
     }

FileName := ExtractFileName(Path);

Console.WriteLine(My.Computer.FileSystem.GetName("c:\autoexec.bat"))

new ActiveXObject("Scripting.FileSystemObject").GetBaseName("chemin");