Bonjour

Je suis en train faire un petit programme qui me permet de sélectionner un dossier dans lequel se trouve des fichiers que je veux renommer avec le même nom (ex: photos d'anniversaire "anniversaire1", "anniversaire2",...).

J'arrive donc à lister tous les fichiers de mon dossier. Par contre je n'arrive pas à modifier le nom de chaque fichier sans perdre son extension d'origine.

Je suis donc à la recherche d'un code me permettant de trouver l'extension d'un fichier.
Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 chemin = "C:\Documents and Settings\Mathieu\Bureau\test\" & ComboBox1.Value  'chemin du dossier contenant les fichiers à renommer
    new_nom = TextBox1.Value 'récupère le nouveau nom
      Dim fileExtension As String
    Dim fso, ListR, sRep, ListF, Rep, LesReps, fich, LesFichs, i
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    Set ListR = fso.GetFolder(chemin)
 
    Set ListF = ListR.Files
    i = 1
    For Each fich In ListF
        Name chemin & "\" & fich.Name As chemin & "\" & new_nom & i
        i = i + 1
    Next
Merci d'avance