Date de création de fichiers

**bov13** · 14/09/2006, 16h28

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** · 14/09/2006, 17h50

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** · 15/09/2006, 09h34

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** · 15/09/2006, 11h25

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** · 15/09/2006, 11h32

Envoyé par 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

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** · 15/09/2006, 11h45

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** · 15/09/2006, 13h40

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** · 15/09/2006, 17h19

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

**bov13** · 16/09/2006, 15h05

Envoyé par AlainTech

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

Oui, je sais, mais finalement, je choisis la date de derniere modification, c'est plus adapté pour mon script.
Pour info, est-il possible de visualiser la table CIM_DataFile?
Voir si dans cette table il y aura cette date à moins que je me trompe!

**AlainTech** · 16/09/2006, 23h22

Que crois-tu que tu fais avec

Code :

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

For Each objFile in colFiles

???

Je pense que tu as tous les éléments en main pour trouver par toi-même... Si tu veux un peu t'en donner la peine.

A partir de maintenant, il va falloir réfléchir.

**bov13** · 17/09/2006, 11h33

Envoyé par AlainTech

Que crois-tu que tu fais avec

Code :

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

For Each objFile in colFiles

???

Je pense que tu as tous les éléments en main pour trouver par toi-même... Si tu veux un peu t'en donner la peine.

A partir de maintenant, il va falloir réfléchir.

Ben, je fais une boucle avec le For Each objFile in colFiles. Voila ou j'en suis aujourd'hui :

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
'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'")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("c:\windows\system32\scrrun.dll")
if objFile.DateCreated > DateAdd("yyyy", -1,Date) Then 
For Each objFile in colFiles
objFSO.CopyFile objFile.Name, "C:\Documents and Settings\Antoine\Bureau\test\"
Next
end if
'Wscript.Echo objFile.Name
msgbox "Copie des fichiers terminés",,"Programme de sauvegarde"

Par contre le "yyyy" va me tenir compte de l'année donc?
Le code me semble correct, j'ai modifié quelques trucs. Certaines personnes voient-ils quelque chose qui les choques dans ce code?
Merci!

**SfJ5Rpw8** · 17/09/2006, 11h50

ben je faudrai te relire... :

Code :

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

1
2
3
4
5
..
Set objFile = objFSO.GetFile("c:\windows\system32\scrrun.dll")
if objFile.DateCreated > DateAdd("yyyy", -1,Date) Then 
..

avec ce code... que crois tu donc tester..? à part la date de création de scrrun.dll...?

**bov13** · 17/09/2006, 14h10

Envoyé par bbil

ben je faudrai te relire... :

Code :

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

1
2
3
4
5
..
Set objFile = objFSO.GetFile("c:\windows\system32\scrrun.dll")
if objFile.DateCreated > DateAdd("yyyy", -1,Date) Then 
..

avec ce code... que crois tu donc tester..? à part la date de création de scrrun.dll...?

Ben uniquement l'année!

**SfJ5Rpw8** · 17/09/2006, 14h17

Envoyé par bov13

Ben uniquement l'année!

oui mais je ne crois pas que ce soit la date de création du fichier scrrun.dll .. qui t'interesse . non ?

**bov13** · 17/09/2006, 19h31

Envoyé par bbil

oui mais je ne crois pas que ce soit la date de création du fichier scrrun.dll .. qui t'interesse . non ?

Oui exacte mais j'avais essayé d'inserer la varialbe objFile.Name pour specifier au prog que c'est la date de création des fichiers trouvé qui m'interresse mais sa n'avait pas marché. C'est possible de faire sa? J'ai peut-etre fait une petite erreur de synthaxe. Merci!

**SfJ5Rpw8** · 17/09/2006, 19h33

il est ou le code ... 'essayé..' il faut mettre le nom complet du fichier.. avec le chemin.. etc...

**bov13** · 17/09/2006, 22h04

Envoyé par bbil

il est ou le code ... 'essayé..' il faut mettre le nom complet du fichier.. avec le chemin.. etc...

Le probleme, c'est que j'effectue une recherche, donc j'ai pas un fichier mais des dizaines.
Voila, ce que j'avais mis :

Code :

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

1
2
 
Set objFile = objFSO.GetFile(objFile.Name)

Peut tu etre plus explicite car je suis pas sur d'avoir tout compris pour ton dernier post. Merci!

**SfJ5Rpw8** · 17/09/2006, 22h06

et avec ce code que ce passe-t'il message d'erreur...? utilise par exemple un wscript.Echo .. pour afficher le traitement appliqué au fichier..

**bov13** · 18/09/2006, 17h32

Envoyé par bbil

et avec ce code que ce passe-t'il message d'erreur...? utilise par exemple un wscript.Echo .. pour afficher le traitement appliqué au fichier..

J'ai évolué pour ce probleme. La ligne suivante fonctionne :

Code :

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

1
2
 
Set objFile = objFSO.GetFile(objFile.Name)

Puis pour la date, voila ce que j'ai mis :

Code :

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

1
2
3
4
5
6
7
 
For Each objFile in colFiles
if objFile.DateLastModified > DateAdd("yyyy", -1,year(Date)) Then 
'Wscript.Echo objFile.Name
objFSO.CopyFile objFile.Name, repertoiresauv & Nommachine & "\"
end if
Next

Donc la, je dois bien copier les fichier dont la date de modification est > a l'année de la date actuel - 1 donc 2005.
Par conséquent il doit me copier les fichiers supérieur à 2005.
La copie sa fait bien mais il me copie des fichiers de 2003. Je comprend vraiment pas, j'estime avoir compris le code.
Merci!

**SfJ5Rpw8** · 18/09/2006, 18h03

j'ai pas vu ou tu as mi le set dans ta boucle...essai :

Code :

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

1
2
3
4
5
6
7
8
 
For Each objFile in colFiles
  Set FsoFile = objFSO.GetFile(objFile.Name)
  if FsoFile.DateLastModified > DateAdd("yyyy", -1,year(Date)) Then 
    'Wscript.Echo objFile.Name
    objFSO.CopyFile objFile.Name, repertoiresauv & Nommachine & "\"
  end if
Next

Date de création de fichiers

VBScript

Discussions similaires

Partager

Partager