Renommer des dossiers

Bonjour à tous

Voila mon problème : je fait parti d'une collectivité qui gère 11 communes. J'ai un dossier par commune (soit 11 dossiers :D ) nommée "data_COMMUNE" (où commune est le nom de la commune en question).

Pour visualiser les données contenues dans un dossier, j'utilise un logiciel. Mais il ne lit le dossier que sous forme "data" donc à chaque fois je dois renommer à la main.

Je voudrais automatiser tout ça (le faire 30 fois dans la journée, sa commence à :evilred: ...).

Malheureusement, je mis connais pas trop en vbs.

J'ai vu sur le forum que la fonction "renommé" n'existait pas (et c'est bien dommage). J'ai cherché une alternative : j'ai opté pour moveFolder

voila ce qui pose problème :

Code:

---

1 2 3

Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.moveFolder "C:\test\minivue\data", "C:\test\minivue\"&"data_"&Contenu objFSO.moveFolder "C:\test\minivue\"&"data_"&com, "C:\test\minivue\data"

---

la variable Contenu recupère l'ancienne commune que j'ai visualisé (par une sauvegarde dans un fichier texte ........... mais ça, sa marche donc passons)

la variable com récupère la commune que je veux visualiser.

En clair, je veux déplacer data --> data_ville1 et data_ville2 --> data.

Le message d'erreur est :

http://img105.imageshack.us/my.php?image=erreurey6.jpg

Si vous avez des idées ....... merci d'avance.

Si j'ai pas été clair ou que c'est pas assez précis faite moi signe ;)

ben déjà rajoute des espaces autour de l'opérateur de concaténation &... puis pourquoi écrire

Code:

---

"C:\test\minivue\"&"data_"

---

et pas directement

Code:

---

"C:\test\minivue\data_"

---

Merci de ta réponse

Pour

Code:

---

"C:\test\minivue\"&"data_"

---

, je croyais que c'était sa qui plantait (aller savoir pourquoi :roll: ) je n'ai pas remis comme il faut.

Je crois que je viens de trouver le prb de mon script :

le nom de la commune contenu dans la variable Contenu est récupéré par le code :

Code:

---

1 2 3

Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.OpenTextFile("C:\test\minivue\commune.txt", 1) contenu = MonFic.ReadAll

---

Or dans ce fichier texte, il y avait un saut de ligne après le nom de la commune. Ainsi, ma variable le récupérait, ce qui fouté en l'air mon adresse de départ.

M'en suis apperçu en mettant des msgbox dans tous les sens :lol:

L'erreur du débutant .....

Je continue à tester mais sa ma l'air bon. Encore merci :king: