Existe-t-il un logiciel qui permette de faire ceci?

Marsh Posté le 19-05-2004 à 11:24:39

Voila j'ai un grand nombre de fichier que je dois renommer (300 environs) comment est il possible de faire cela automatiquement? voila à peu près ce que je veux faire:

- titre 1 >> 001.mp3
- titre 2 >> 002.mp3
| |
| |
| |
| |
- titre 100 100.mp3

Sachant que je doit affecté les même titre à deux autre séries de 100...

J'éspère avoir été clair :sweat:

Message édité par bilou le 19-05-2004 à 13:08:01

Reply

Marsh Posté le 19-05-2004 à 11:24:39

Reply

Marsh Posté le 19-05-2004 à 11:26:33

download.com->recherche "mass renamer"

sinon regarde la signature de Antp notre Modo/Admin bien aimé ...

Reply

Marsh Posté le 19-05-2004 à 11:31:13

Ce dont parle Krapaud: Ant Renamer

Reply

Marsh Posté le 19-05-2004 à 13:50:40

bah c pas exactement ce que je cherche.

ces logiciels permettent de rechercher toutes les chaines de caractères s'appelelnt "x" et les remplacer par "y". Dans la mesure où les noms des mp3 sont tous différents, je suis obligé de remplacer chaque mp3 par le titre précis manuellement.

Ce que je souhaite c que les titres qui seraient contenue dans un .txt s'affectent aux mp3 sans avoir à le faire manuellement.

maios je ne pense pas que cela soit possible...bcps de travail en perspective...:sweat:

Reply

Marsh Posté le 19-05-2004 à 16:22:53

Pourquoi pas un petit script vite fait!

Citation :

strComputer = "."
Numero=1
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:\test'} Where " _
& "ResultClass = CIM_DataFile" )
For Each objFile In FileList
If objFile.Extension = "mp3" Then
strNewName = objFile.Drive & objFile.Path & _
Numero & "." & "mp3"
Set objFSO = CreateObject("Scripting.FileSystemObject" )
If not objFSO.FileExists(strnewname) Then
errResult = objFile.Rename(strNewName)
Numero=Numero+1
if errresult > 0 then
Wscript.echo errresult & " Une erreur sur" & strnewname & " !"
else
Wscript.echo objFile.name & chr(10) & chr(10) & _
" renommé en " & chr(10) & chr(10) & strnewname
end if
end if
end if
Next

Renomme tous fichier .mp3 dans c:\test si celui-ci n'existe pas d'éjà!
Tu copie/colle dans Notepad et enregistre le en xxx.vbs, à exécuter en local.
Tu modifies c:\test en ton répertoire.
Tu modifies Numero=1 en la valeur de début que tu veux.
Je l'ai testé rapido avec un mode bavard, donc si tu as 300 fichiers, ça va être lourd! donc supprime

Citation :

else
Wscript.echo objFile.name & chr(10) & chr(10) & _
" renommé en " & chr(10) & chr(10) & strnewname

d'autres trucs peuvent être retirés mais bon...
...

Grrr!! la mise en forme...

Message édité par dahlo le 19-05-2004 à 16:29:18

Reply

Marsh Posté le 19-05-2004 à 16:33:05

en fait le prog d'antp fonctionne (la fonction "Noms à partir d'une liste) mais le problème c'est que lorsque le fichier se charge, c'est incompréhensible (le log n'accepte pas les caractères non unicode)

merci dahlo pour ton soutien :jap: