en vbs, je crois que ca donne ca...
a=inputbox("Répertoire des fichier à renommer","?","c")
b=inputbox("nom des fichiers","?","c")
d=inputbox("extension a mettre","?","c")
Set fs = CreateObject("Scripting.FileSystemObject")
fs.RenameFile a+"*.* " +c+"."+d
a confirmer