Bonjour amis développeurs,


Je recherche depuis quelques temps une façon de renommer mes fichiers d'un façon spécifique : il faut ajouter la date au format AAAAMMJJ devant le nom du fichier.


Exemple:
Avant: "texte.doc" Apres: "20100420 - texte.doc"

J'ai cherché comment faire ça avec du code, et je me suis lancé sur le VBS.

Pour l'instant, je me suis fait un code qui ajoute un "_HQ" en fin de mes fichiers JPG:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Set objArgs = WScript.Arguments 
Dim VarMod
If objArgs.Count  > 0 Then
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	VarMod = Replace(objArgs(0), ".JPG", "_HQ.JPG")
	VarMod = Replace(VarMod , ".jpg", "_HQ.jpg")
	objFSO.MoveFile objArgs(0) , VarMod
End if
Par contre, ce code fonctionne avec un glisser-déposer..
Ce qui m'oblige de le copier dans tous les répertoires où je veux l'utiliser..


Ce que je cherche : J'aimerais exécuter cette action de "renommage" à partir d'un raccourci clavier !

Question 1: Le VBS est-il le bon code pour cela ? Si non, lequel serait le bon ?

Question 2: Comment puis-je lancer ce script à partir de mon clavier ?

Question 3: Comment faire comprendre au script VBS que je veux appliquer mon renommage sur le fichier sélectionné ? (en gros, est-ce que le "Set objArgs = WScript.Arguments " suffira ?)


Voilà tout !


Je vous remercie d'avance pour le temps que vous pourriez me consacrer.