Bonjour,
Tu fais un copier/coller de ce code dans un fichier que tu enregistre avec l'extension VBS (Visual Basic Scripting) et ça doit rouler.
Set fso = CreateObject("Scripting.FileSystemObject" )
' Pointer sur le répertoire
Set f = fso.GetFolder("c:\Ancien" )
' parcourir le répertoire
Cpt = 0
For Each fichier In f.Files
' récupérer le N° le + grand
sPoint = InStr(fichier.Name, "." )
Num = Mid(fichier.Name, sPoint - 1, 1)
If Num > Cpt Then
Cpt = Num
End If
Next
' Ajouter 1
Cpt = Cpt + 1
' concaténer un zéro si inférieur à 10
If Cpt < 10 Then
Rang = "0" & CStr(Cpt)
End If
' Position du point
sPoint = InStr("c:\courant\MAU-Courant.doc", "." )
' Position du tiret
sTiret = InStr("c:\courant\MAU-Courant.doc", "-" )
' Renommer le fichier à déplacer
Fichier_a_deplacer = Mid("c:\Ancien\MAU-Courant.doc", 1, sTiret - 2) & Rang & "." & Mid("c:\courant\MAU-Courant.doc", sPoint + 1)
' déplacer le fichier
fso.movefile "c:\courant\MAU-Courant.doc", Fichier_a_deplacer
Set f = Nothing
Set fso = Nothing