Renommer en masseRésolu

Question

Dans un dossier j'ai plusieurs centaines de fichiers qui commencent avec un chiffre suivit de leurs noms. Ex:

1001 - nom1.ext
1002 - nom2.ext
...

Mais le probl&#232;me est que je veux classer ces fichiers par ordre alphab&#233;tique et que les renommer &#224; la main prendrais bien trop de temps. Comme je n'ai pas touch&#233; au vbs depuis environ 5ans je demande l'aide d'un programmeur qui accepterais bien de me faire un petit script pour renommer tous les fichiers d'un m&#234;me r&#233;pertoire en effa&#231;ant leurs pr&#233;fixes (soit les 7 premiers caract&#232;res). Si quelqun pourrait prendre le temps de m'aider j'appr&#233;cirais beaucoup!

cs_wbr · Accepted Answer

Je viens de trouver le problème. Certains fichiers était renommer 2fois, alors pour résoudre le problème, sur tous mes fichiers j'ai mit l'attribut +Archive et dans mon script, j'enlève l'attribut une fois le fichier renommer. Cela permet d'empêcher que le même soit renommer 2fois.

Voici mon code:

Dim Fold
Dim Fil
Dim fso
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fold = fso.GetFolder("C:\windows\bureau	estfold")
For Each Fil In Fold.Files
Set Att = fso.GetFile(Fil.Path)
If Not (Att.Attributes) = 0 Then
Fil.Name = Mid(Fil.Name, 8, Len(Fil.Name) - 6)
Att.Attributes = 0
End if
Next
Set Fold = Nothing
Set fso = Nothing
Msgbox "Done"

ScSami · Answer

Le mieux serait que tu le fasses toi m&#234;me tu ne crois pas !!!

A mon avis, &#233;vite le VBS... fait plut&#244;t &#231;a en VB ou en VBA (macro) dans Word ou Excel selon ce que tu as sous la main. Ensuite, regarde l'aide sur l'objet FSO (FileSystemObject). Il permet, justement, de manipuler facilement les fichiers pour faire ce genre de trucs. Cet objet va t'amener vers d'autres objets et collections (style Folder, File, ...). Sert toi des exemples dans l'aide : ils sont tr&#232;s bien. C'est tr&#232;s facile &#224; utiliser.
Mais sinon, il y a toujours les fonctions & instructions internes au VB(A).

Le but du jeu, avec ton FSO, est de r&#233;cup&#233;rer un objet collection Folder selon ton Path (chemin d'acc&#232;s, ton dossier quoi!). Ensuite, il suffit de parcourir la collection via For Each obj In collection.

Pour ce qui concerne l'enl&#232;vement des 7 premiers caract&#232;re... si tu es bien s&#251;r de ton coup (que c'est toujours les 7 premiers, qu'il n'y a pas d'exceptions, ...), utilise la fonction MID$(txt, deb, longueur). Style Mid$(varNomDuFichier, 8, Len(varNomDuFichier) - 7).

Voil&#224;, maintenant, &#224; toi de jouer  

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

jrivet · Answer

Pas mieux, alors je vais  faire un petit exemple:

En ajoutant Microsoft Scripting Runtime comme reference a ton projet.

Tu fais un truc de ce genre:

Dim fso As New FileSystemObject
Dim Fold As Folder
Dim Fil As File


Set Fold = fso.GetFolder("C:	mp	est")
For Each Fil In Fold.Files
    Fil.Name = Mid(Fil.Name, InStrRev(Fil.Name, " ") + 1)
Next
Set Fold = Nothing
Set fso = Nothing


ATTENTION il n y a aucun test de fait sur le resultat, si le fichier renommer existe deja, il y aura des erreurs, mais bon c est juste un petit exemple de depart.

@+
Julien

cs_wbr · Answer

Tout d'abord merci pour les réponses. Ensuite, pour répondre a ScSami, oui tu as bien raison, le mieux serait de le faire moi-même mais comme je l'ai expliquer, la dernière fois que j'ai touché à la programmation je devais avoir dans les 11-12ans alors ça remonte à un bon bout de temps.

Et jrivet je te remercie beaucoup pour ton aide mais a tu fais ce script pour qu'il fonctionne sous VB ou VBS? J'ai mit ton code dans un fichier .vbs mais il m'affiche une erreur à la 1er ligne, charactère 9, soit le A de Dim As

jrivet · Answer

Re,

VBS... j avais oublie,

- Enleve tout les AS ..... laisse juste les DIM NomVariable.
- Remplace cette ligne: Set Fso = New FileSystemObject par
Set Fso = CreateObject("Scripting.FileSystemObject")

Et apres reteste.

@+
Julien

cs_wbr · Answer

Bon alors j'ai fait les changements mais le script renommais en gardant seulement la fin du fichier, j'ai donc modifié la ligne avec Mid et voici le nouveau code:

Dim Fold
Dim Fil
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fold = fso.GetFolder("C:\windows\bureau	estfold")
For Each Fil In Fold.Files
Fil.Name = Mid(Fil.Name, 8, Len(Fil.Name) - 6)
Next
Set Fold = Nothing
Set fso = Nothing

J'ai fait plusieurs tests en remplaçant Fil.Name = Par Msgbox. Chaque fois le nom était renommer parfaitement, les 7 premiers caractères avaient disparues du nom. Mais lorsque j'ai remit la fonction pour renommer, j'ai eu des résultats imcompréhensibles..

Sur 4 fichiers, seulement 2 ont été renommer correctements j'ai eu ces résultats:

1006 - Matchbox Cross Town Heroes (E).gba
x Cross Town Heroes (E).gba

1007 - Spirit - Der wilde Mustang - Auf der Suche nach Homeland (G).gba
- Der wilde Mustang - Auf der Suche nach Homeland (G).gba

1011 - Buffy - Im Bann der Daemonen - Koenig Darkhuls Zorn (G).gba
Buffy - Im Bann der Daemonen - Koenig Darkhuls Zorn (G).gba

1016 - Weekend Miljonairs (NL).gba
Weekend Miljonairs (NL).gba

Quelqun aurait-il une idée du problème?

jrivet · Answer

Re,

Il faut que toi meme tu sois sur de la nomenclature a suivre pour renommer les fichiers. est de qu ils suivent TOUS le meme modele,...


@+
Julien

cs_wbr · Answer

Oui, ils ont tous les 7 premiers caractères en trop. D'ailleurs les noms de fichiers ci-haut donnent un bon apperçu du modèle des noms des fichiers.

jrivet · Answer

Lut,

j ai repris ton code, sans le changer ca marche niquel (j ai nomme mes fichier de la meme facon que toi.)

@+
Julien

Renommer en masse

9 réponses

Discussions similaires