Comparer deux dates au format : mid(date, 1, 10)
Bonjour à tous,
Je suis débutant en VBS, je cherche à faire un script me permettant de comparer deux dates.
J'ai choisi de formater ma date : jj/mm/aaaa ss/mm/hh en jj/mm/aaaa via la fonction mid(date, 1, 10) puisque je souhaite savoir si un fichier à sa propriété : datelastmodified du même jour qu'un autre.
Est-ce que vous me suiviez?
Allez un petit exemple :
06/07/2014 = 06/07/2014
06/07/2014 > 05/07/2014 (Plus récent)
05/07/2014 < 06/07/2014 (Moins récent)
Voici une partie de mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
killdateFULL = now() - 1 ' on ne considère que les fichiers antérieurs à 1jours
killdate = mid(killdateFuLL, 1, 10)
set folderD = fso.getfolder("\\Une destination\")
totalD = 0
for each file in folderD.files 'Suppresion des fichiers dans le répertoire destination'
dtcreatedD = file.datelastmodified
dtcreatedDLESS = mid(dtcreatedD, 1, 10) 'Il faut adapter le dtcreated au format du killdate
if dtcreatedDLESS >= killdate then
flog.writeline("La sauvegarde de destination : " & file.name & " est trop récente pour être supprimé")
else
flog.writeline("La sauvegarde de destination : " & file.name & " à été supprimé")
file.delete
totalD = totalD + 1
end if
next |
La comparaison "=" fonctionne correctement malheureusement le "<" ou ">" ne fonctionne pas si je formate ma date avec mid(date, 1, 10).
Je suis à court d'idées 8O.
Merci de votre aide.
Et bonne soirée :mouarf:.
