Voici un script pour Windows qui fait ça :
' Programme qui renomme les fichiers d'un répértoire
' een enlevant [youtube] à la fin du nom
Sub RenameFilesInFolder(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
name0 = fso.GetBaseName(f1)
If (Right(name0, 13) = " [youtube.fr]" ) Then
lg = Len(fso.GetBaseName(f1))
name1 = Left(name0, lg - 13)
name2 = name1 & "." & fso.GetExtensionName(f1)
' Wscript.Echo f1.name & "-->" & name2
fso.MoveFile f1.name, name2
End If
Next
End Sub
' Lance le renommage à partir du dossier "." qui est le dossier courant
' ou bien on peut indiquer un chemin à la place du point
RenameFilesInFolder("." )
Wscript.Echo "Traitement terminé"
Wscript.Quit(1)
|
Il faut copier ces lignes dans un nouveau fichier, qui sera nommé, par exemple, RenameYt.vbs. L'extension ".vbs" est importante.
Ensuite, il suffit de cliquer dessus pour que le renommage s'effectue pour tous les fichiers du dossier courant.
Message édité par billgatesanonym le 13-10-2013 à 16:49:54