Date de création de fichiers

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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!

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

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

Code:

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!

15/09/2006, 11h25
AlainTech

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

Code:

if objReadOnlyFile.DateLastModified < DateAdd("yyyy", -1, Date) then
15/09/2006, 11h32
bov13

Citation:

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:

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!
15/09/2006, 11h45
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?

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

Code:

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!

15/09/2006, 17h19
AlainTech

Citation:

Code:

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...
16/09/2006, 15h05
bov13

Citation:

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!
16/09/2006, 23h22
AlainTech

Que crois-tu que tu fais avec

Code:

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.

Citation:

Envoyé par AlainTech

Que crois-tu que tu fais avec

Code:

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:

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!

17/09/2006, 11h50
SfJ5Rpw8
ben je faudrai te relire... :
Code:

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...?
17/09/2006, 14h10
bov13
Citation:
Envoyé par bbil

ben je faudrai te relire... :

Code:

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!
17/09/2006, 14h17
SfJ5Rpw8

Citation:

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 ?
17/09/2006, 19h31
bov13

Citation:

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!
17/09/2006, 19h33
SfJ5Rpw8

il est ou le code ... 'essayé..' il faut mettre le nom complet du fichier.. avec le chemin.. etc...
17/09/2006, 22h04
bov13
Citation:

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:

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!
17/09/2006, 22h06
SfJ5Rpw8

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

Citation:

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:

1 2 Set objFile = objFSO.GetFile(objFile.Name)
Puis pour la date, voila ce que j'ai mis :
Code:

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!

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

Code:

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

Voir 40 message(s) de cette discussion en une page