Test valeur Year(oFl.DateCreated)

Bonjour !
je cherche à déplacer des fichiers d'un repertoire en fonction de l'année de leur création.
Lorsque j'éxecute le code "code1" ci-dessous, j'obtiens l'affichage voulu.
En revanche, des que j'essaye de réaliser un test ("Code 2") de valeur avec un if entre
la date obtenue avec Year(oFl.DateCreated) et par exemple la date saisie via un input (ex : annee = InputBox ("Jusqu'à quelle année voulez vous archiver ?") la condition n'est pas respectée.

Peut être me faut il convertir via une fonction du style partdate une de mes
variable ?

Mon "if" est peut être mal formé ?

Alors si quelqu'un pouvais me donner un coup de main ?

Merci
:?



Code 1
*****

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Dim stRep Dim annee,anneecreation Dim oFSO,oFSO2,noFld,oFl Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFSO2 = CreateObject("Scripting.FileSystemObject") stRep = "C:\test\s1"   'annee = InputBox ("Jusqu'à quelle année voulez vous archiver ?")     If oFSO2.FolderExists(stRep) Then   For each oFl in oFSO2.GetFolder(stRep).Files     Select Case Year(oFl.DateCreated)       case 2005:     'oFl.Move "c:\test\2005\" msgbox "2005" case 2006: msgbox "2006"   'oFl.Move "c:\test\2006\"   case 2007:   msgbox "2007" 'oFl.Move "c:\test\2007\"   case else:   msgbox "long ago"   End Select Next End if

---

Code 2
*****

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim stRep Dim annee,anneecreation Dim oFSO,oFSO2,noFld,oFl Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFSO2 = CreateObject("Scripting.FileSystemObject") stRep = "C:\test\s1" annee = InputBox ("Jusqu'à quelle année voulez vous archiver ?") If oFSO2.FolderExists(stRep) Then For each oFl in oFSO2.GetFolder(stRep).Files msgbox oFl.Name & " " & Year(oFl.DateCreated) anneecreation=Year(oFl.DateCreated) msgbox "année de création " & anneecreation ICI If anneecreation<annee Then msgbox "fichier à archiver" & annee & " " & anneecreation End if Next End if

---

Premierement, lorsque tu postes du code, utilises les balises de code.


Deuxiement :

Code:

---

Set oFSO = CreateObject("Scripting.FileSystemObject")

---

Inutile dans ton code.


Troisiement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If oFSO2.FolderExists(stRep) Then For each oFl in oFSO2.GetFolder(stRep).Files anneecreation=Year(oFl.DateCreated) msgbox oFl.Name & " " & anneecreation msgbox "année de création " & anneecreation If anneecreation<annee Then msgbox "fichier à archiver" & annee & " " & anneecreation End if Next End if

---

Je placerais plutot anneecreation avant la msgbox pour ne faire qu'une seule fois le calcul.


Quatrièmement :

Code:

---

1 2 3 4

If anneecreation<annee Then msgbox "fichier à archiver" & annee & " " & anneecreation End if

---

Est ce que la msgbox s'affiche et elle affiche quoi ?

Je n'ai jamais utilisé Year donc je ne sais pas ce que cette fonction renvois. Neanmoins annee contient elle un string, donc même si year renvois un string, ce n'est pas de cette façon que l'on compare deux strings. La tu fait plus une comparaison de deux nombres mais tu n'as pas deux nombre.

Tout dabord merci et pardon pour l'élaboration de mon post.
Effectivement, je compare des choses incomparables ..
Alors question comment obtenir une valeur numérique avec la fonction Year ?

Merci

Pour répondre à ta question, la msgbox me retourne bien les deux valeurs
(meme si elles sont différentes et ne devrais pas remplir la condition)

Que te renvois year (le type de donnée) ?

la fonction Year(oFl.DateCreated) me retourne selon les fichiers 2007 ou 2006 par exemple.

Quand je te demandé le type de donnée c'était pour savoir si elle te retourne un string, un int, une date, une vache, une bouse, .....

Trés drole ...
Au vue de mon problème, de mes questions je suppose que vous avez
estimez mon niveau technique en programmation vbscript. De ce fait, il est un petit peu dommage de vous foutre de moi. Mais bon cela fait du bien n'est ce pas ?

Comment obtenir le type retourné ?????????


Merci grand maitre

Pffffffff vraiment trop succeptible.
Prendre une blague pas drole, j'y peut rien je ne sais pas en faire des drole, pour de la moquerie, pfffffffff, je ne vais même plus pouvoir raconter de connerie, c'est pas drole ça.
En effet j'ai vu que ton niveau n'est pas très élevé mais c pas grave ça, tout s'apprend (même ire à des blagues pas droles).
Sais tu ce qu'est un int, un string, le type d'une variable ?
En général on connait le type de données retourné par une fonction dans la doc que l'on a ouvert pour trouver la focntion en question.

Inutile de me remercier petit scarabé, le savoir est destiné à être enseigné.

Bon alors le manuel me dit : Year : Retourne l'année contenu au sein d'une expression spécifiée !!!!!!!!!!!!!!

une idée ?

ben ton probléme viens du fait que tu compare un entier avec une chaine ...tu peu tout transformer en entier :

Code:

---

1 2	If CInt(AnneeCreation) < CInt(annee) Then

---

sinon les opérateurs < > = ... permettent aussi de comparer des chaînes, et sont alors fonction de l'ordre alphabétiques des deux opérandes...

dans ton cas du dois pouvoir même utiliser :

Code:

---

1 2	If CStr(AnneeCreation) < CStr(annee) Then

---

;)

merci pour ces explications, j'ai utilisé la syntaxe suivante :

anneecreation=DatePart("yyyy",oFl.DateCreated)

je vais tester avec votre méthode.

Merci à tous