Discussion :

[bov13]

Salut à tous!
Donc, j'ai déja demander de l'aide sur ce forum avec succès, d'ailleur, je les remercies. Il y a juste un dernier truc sur lequel je bloque. J'effectue donc une recherche de fichier par extension et une fois celle-ci effectuée, je copie ces fichiers sur un serveur distant. Ceci fonctionne mais je souhaiterai uniquement copier les fichiers qui ont une date de création inférieur à 1 ans.
Malgré quelque recherche, je n'est pas trouvé.
Voici 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
 
'Rechercher les fichiers
msgbox "Recherche de documents Word (Ceci peut prendre quelques minutes)",, "Programme de sauvegarde"
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc'")
For Each objFile in colFiles
'Wscript.Echo objFile.Name
objFSO.CopyFile objFile.Name,repertoiresauv & Nommachine & "\"
Next
msgbox "Copie des fichiers terminés",,"Programme de sauvegarde"

Merci de m'aider!

[ced600]

En cherchant un peu sur le forum, tu aurais trouvé cela :
http://www.developpez.net/forums/sho...d.php?t=209141
Je pense que cela devrais t'aider.

[bov13]

Donc voici pour l'instant ce que j'ai mis :

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
 
'Rechercher les fichiers
msgbox "Recherche de documents Word (Ceci peut prendre quelques minutes)",, "Programme de sauvegarde"
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc'")
For Each objFile in colFiles
Set objReadOnlyFile = objFSO.GetFile(objFile.Name)
if DateDiff("d",objReadOnlyFile.DateLastModified ,Date)> 1 then
'Wscript.Echo objFile.Name
objFSO.CopyFile objFile.Name,repertoiresauv & Nommachine & "\"
end if
Next
msgbox "Copie des fichiers terminés",,"Programme de sauvegarde"

A quoi correspond le > 1 dans le If? ainsi que le "d"?
Merci pour vos réponses!

[AlainTech]

Vu les problèmes pour détecter une différence d'un an avec DateDiff, j'utiliserais plutôt cette syntaxe.

Code :

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

if objReadOnlyFile.DateLastModified < DateAdd("yyyy", -1, Date) then

[bov13]

Vu les problèmes pour détecter une différence d'un an avec DateDiff, j'utiliserais plutôt cette syntaxe.

Code :

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

if objReadOnlyFile.DateLastModified < DateAdd("yyyy", -1, Date) then

Je dois avoir un probleme avec la boucle If, comment lui dire que si le fichier a une date de création supérieur a 1 ans, de pas le copier.
Merci!

[AlainTech]

J'ai écrit le code ci-dessus pour donner un exemple de syntaxe sans relire toute la discussion pour connaître la question d'origine mais...
T'arrive-t-il de réfléchir, parfois?

Ou bien, comptes-tu venir ici à chaque problème rencontré?

Dans ce que j'ai écrit, on rentre dans le If si la date du fichier est plus petite que "aujourd'hui moins 1 an".

Que penses-tu devoir faire pour obtenir ce que tu veux?

[bov13]

C'est ce que j'ai fais! Je demande une simple confirmation.
Voici actuellement ce que j'ai :

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
 
msgbox "Recherche de documents Word (Ceci peut prendre quelques minutes)",, "Programme de sauvegarde"
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc'")
For Each objFile in colFiles
Set objReadOnlyFile = objFSO.GetFile(objFile.Name)
if objReadOnlyFile.DateLastModified < DateAdd("yyyy", -1, Date) then
'Wscript.Echo objFile.Name
objFSO.CopyFile objFile.Name,repertoiresauv & Nommachine & "\"
end if
Next
msgbox "Copie des fichiers terminés",,"Programme de sauvegarde"

La copie fonctionne mais il me copie aussi des fichiers qui datent de plus d'un ans. Merci!

[AlainTech]

Code :

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

if objReadOnlyFile.DateLastModified < DateAdd("yyyy", -1, Date) then

Encore une fois, je n'ai pas vérifié tout ton code mais quand je vois ce qui est écrit ci-dessus, ça m'étonnerait qu'on parle de date de création...