Discussion :

[yoyo-tns]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

[hackoofr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

[yoyo-tns]

Un grand merci