Renomer un fichier ?

Bonjour,

je souhaite faire une boucle pour renomer tous les fichiers du répertoire courant.

Je dois renomer tous les fichiers en leur retirant la date à la fin de leur nom

ex: fichier1_200907131455.bak doit etre renomé en fichier1_.bak

Merci de m'aider svp

etape 1 :

assigner le nom a une variable :

un petit Instr() avec un petit Left() devraient suffire. Jette un coup d'oeil sur la faq.


Pour renommer c'est ce code là :

Code:

---

1 2	Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt"

---

Citation:

---

Envoyé par spantemonium

etape 1 :

assigner le nom a une variable :

un petit Instr() avec un petit Left() devraient suffire. Jette un coup d'oeil sur la faq.


Pour renommer c'est ce code là :

Code:

---

1 2	Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt"

---

---

Je ne peux pas faire ta méthode étant donné que je connais pas le nom de mes fichiers, donc je ne peux pas renommer manuellement (comme dans ton code)
De plus, je ne comprends pas comment Instr() et Left() pourrai m'être utile ici
Merci de m'aider

Il est bien évident qu'avant de les renommer tu dois connaître le nom du fichier source voir :
Comment lister les fichiers d'un dossier ?

et comme on te le dis plus haut pour calculer le nouveau nom de fichier :
left et instr ... peuvent être une solution ...:

Comment extraire une partie d'une chaîne ?

Citation:

---

Envoyé par bilouz93

De plus, je ne comprends pas comment Instr() et Left() pourrai m'être utile ici

---

Parce que d'un nom de fichier tu prends la partie à gauche du "_", Instr te permet de calculer la position du "_" et Left et Right te permet de garder une partie du texte en fonction de la position que tu lui fournis.