Retirer le Chemin (répertoire) devant un nom de fichier

Voici un petit bout de code qui permet de retirer le chemin d’un fichier pour ne conserver que son nom. Si vous utiliser mon explorateur par exemple vous allez obtenir une variable avec le chemin complet (exemple c:\temp\toto.txt) mais voila vous voulez le copier ailleurs donc récupérer son nom toto.txt sans le chemin c:\temp\
Il vous suffit d’utiliser ce petit code :

'Nom du fichier avec son chemin
filebrowser = "c:\temp\toto.txt"
'récupération du nom du fichier sans son chemin 
NomCourtFichier = CreateObject("Scripting.FileSystemObject").GetFileName(filebrowser)
'affichage du résultat
affiche = MsgBox ("Vous aviez le fichier avec le chemin : " & filebrowser & VbCrLf & VbCrLf & VbCrLf & _   
"Vous obtenez : " & NomCourtFichier & VbCrLf, vbOKOnly+vbInformation, "Explorateur VBS")
 
Wscript.Quit