creation d'un répertoire avec date du jour

Bonjour
je rencontre avec un petit script vbs ( je suis novice )
que je lance le 10 du mois ou le 11, 12 , ou autre il fait toujours la création du répertoire avec la date du 10, jour ou j'ai fais la première exécution

si vous avez une idée je suis preneur .... MERCI

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

'Déclaration des variables     Dim Date1_Mois, Date_Mois, Date_Annee, FSCopie1, Date1   'Formatage de la date     Date1_Mois = date Date1_Mois = month(Date1_Mois)   Date_Mois = date Date_Mois = monthName(month(Date_Mois))   Date_Annee = date Date_Annee = year(Date_Annee)   Date1 = Date_Annee & Date_Mois   'Création de dossiers Set fs = CreateObject("Scripting.FileSystemObject") fs.CreateFolder ("d:\Testai\" & Date1_Mois & Date_Mois & Date_Annee )

---

:salut:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit Dim Date_Jour,Date_Mois,Date_Annee,MyFolderDate,fso 'Formatage de la date Date_Jour = Day(Now) Date_Mois = Month(Now) Date_Annee = Year(Now) MyFolderDate = Date_Jour & "_" & Date_Mois & "_" & Date_Annee wscript.echo MyFolderDate 'Création de dossiers Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(MyFolderDate) Then fso.CreateFolder(MyFolderDate) End If

---

Citation:

---

Envoyé par yoyo-tns

...
que je lance le 10 du mois ou le 11, 12 , ou autre il fait toujours la création du répertoire avec la date du 10, jour ou j'ai fais la première exécution
...

---

Bonjour,

Month renvoi le numéro de mois soit pour Octobre 10 ... ! pour le jour c'est Day ...;)

Un grand merci