Afficher la date en VbScript

Comment afficher la date en VbScript dans le format yyyy mm dd. C'est le bon format pour un fichier de log

Option Explicit

Dim ActualDay, MyDay, MyMonth

MyDay = Day(Now)
MyMonth = Month(Now)

If Len(MyDay) = 1 Then MyDay = "0" & MyDay
If Len(MyMonth) = 1 Then MyMonth = "0" & MyMonth
ActualDay = Year(Now) & "-" & MyMonth & "-" & MyDay

Wscript.echo ActualDay

Lien vers le fichier : cliquez ici Copier le code

La même chose mais avec l'heure en plus

Option Explicit

Dim ActualDay, MyDay, MyMonth, varTime
Dim varDateetHeure

MyDay = Day(Now)
MyMonth = Month(Now)

If Len(MyDay) = 1 Then MyDay = "0" & MyDay
If Len(MyMonth) = 1 Then MyMonth = "0" & MyMonth
ActualDay = Year(Now) & "-" & MyMonth & "-" & MyDay

varTime = Time
varTime = Replace(varTime, ":", "-") 'Remplacement des : par - car : est un caractère interdit dans les noms de fichiers

varDateetHeure = ActualDay & "_" & varTime

Wscript.echo varDateetHeure

Lien vers le fichier : cliquez ici Copier le code