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 ) |