Alors en VBS :
Dim fso, rep, aujourdhui
Set fso = CreateObject("Scripting.FileSystemObject" )
Function AddZero(valeur)
If CInt(valeur) < 10 Then
valeur = "0" & valeur
End If
AddZero = valeur
End Function
rep = "c:\" ' Attention à bien laisser le \ !!!
aujourdhui = Year(Now()) & "-" & AddZero(Month(Now())) & "-" & AddZero(Day(Now()))
If Not fso.FolderExists(rep & aujourdhui) THEN
Set f = fso.CreateFolder(rep & aujourdhui)
End If
set f=nothing
|
Le principe :
dans rep, tu met le repertoire dans lequel doit se crée tout les jours le nouveau repertoire (ex : "c:\windows\" ). Il faut bien que le tout se finisse par un \ sinon attention les yeux
Par contre j'ai mis annee-mois-jour, l'avantage c'est que ca se range par ordre chronologique. Mais bon a modifier ca devrait pas etre dur
Tu enregistre le tout dans un fichier d'extension vbs et zou, ca devrait marcher !
---------------
"Ne jamais faire confiance à un truc qui peut saigner 4-5 jours par mois sans crever !"