Discussion :

[Superkoala42]

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 :

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

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 .

Merci de votre aide.

Et bonne soirée .

[ProgElecT]

Salut, bienvenue sur DVP

Code :

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

if Cdate(dtcreatedDLESS) >= Cdate(killdateFULL) then

Sinon c'est le code littérale qui est comparé.

[Superkoala42]

Bonjour ProgElecT.

Merci de ta réponse, effectivement tout fonctionne correctement via :

Code :

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

Cdate(dtcreatedDLESS) >= Cdate(killdateFULL)

Merci de ton aide .

Je clôture ce poste.