Discussion :

[jeqejp]

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 :

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
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 :

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
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

[ced600]

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


Deuxiement :

Code :

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

Set oFSO = CreateObject("Scripting.FileSystemObject")

Inutile dans ton code.


Troisiement :

Code :

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

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 :

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

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.

[jeqejp]

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)

[ced600]

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

[jeqejp]

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

[ced600]

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, .....

[jeqejp]

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

[ced600]

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é.

[jeqejp]

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

une idée ?

[SfJ5Rpw8]

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

Code :

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

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 :

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

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

[jeqejp]

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

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

je vais tester avec votre méthode.

Merci à tous