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 :
La comparaison "=" fonctionne correctement malheureusement le "<" ou ">" ne fonctionne pas si je formate ma date avec mid(date, 1, 10).
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 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
Je suis à court d'idées.
Merci de votre aide.
Et bonne soirée.
Partager