Script de renommage de fichiers dans un dossier donné

Bonjour,

Je suis à la recherche d'un script qui pour un dossier que l'on défini en variable,

renomme tous les fichiers
MON_TEST-000000-0000-18_05_2011.pdf

en

99-000000-0000-18_05_2011.pdf

En clair, on remplace MON_TEST par 99 qui est une variable. mais ça ne sera pas toujours nommé MON_TEST. L'idéal serait d'arriver à dire au script tu enlèves tout ce qui est avant le premier - et tu le remplace par 99 (qu'on déclarerait en constante au début du script).

Si quelqu'un aurait un script s'y approchant ce serait top.

Merci d'avance.

Salut

Pour renommer

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim NameFichier1, NameFichier2 Const Remplacement = "99" NameFichier1 = "MON_TEST-000000-0000-18_05_2011.pdf" NameFichier2 = "Autre_Nom-100000-0020-19_06_2012.pdf"   NameFichier1 = Remplacement & Right(NameFichier1, Len(NameFichier1) - InStr(1, NameFichier1, "-") + 1) MsgBox NameFichier1   NameFichier2 = Remplacement & Right(NameFichier2, Len(NameFichier2) - InStr(1, NameFichier2, "-") + 1) MsgBox NameFichier2

---

Merci beaucoup pour ta réponse !