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