Récupérer les fichiers du jour et de la dernière heure

[qmike]

Bonjour
J'utilise le code suivant pour récupérer les fichiers du jour

Code :

1
2
3
4
5
6
7
 
    For Each Fichier In FSO.GetFolder(strDirSAUVE).Files
        If DateDiff("d",Fichier.DateLastModified,Datejour)=0 Then
           Fichier.Copy "e:\PE\COPIE\" &FileName, true
		   'WScript.Echo " REMPLISSAGE DU DOSSIER COPIE AVEC LES FICHIERS DU JOUR " & Fichier
        End If
    Next

cela fonctionne trés bien
je récupére tous les fichiers du jour quelque soit l'heure

Mais il faut que je récupére les fichiers du jour dotés uniquement de la dernière heures du jour
Exemple aujourd'hui

Fic1 06/02/2012 10:15
Fic2 08/02/2012 10:15
Fic3 07/02/2012 11:15
Fic4 08/02/2002 11:15
Fic5 08/02/2012 11:15

IL faut récupérer que les fichiers du jour et 11h 15


Merci pour vos réponse

[pitchalov]

Bonjour,

L'utilisation des fonctions Hour() et Minute() parraissent adaptées à ton besoin.
Quelque chose de ce genre ?

Code :

1
2
3
4
5
6
7
For Each Fichier In FSO.GetFolder(strDirSAUVE).Files
	dateModifFichier = Fichier.DateLastModified
	If (DateDiff("d",dateModifFichier,Datejour)=0) AND (Hour(dateModifFichier) = 11) AND (Minute(dateModifFichier) = 15) Then
	   Fichier.Copy "e:\PE\COPIE\" &FileName, true
	   'WScript.Echo " REMPLISSAGE DU DOSSIER COPIE AVEC LES FICHIERS DU JOUR " & Fichier
	End If
Next

Bonne continuation.

[qmike]

bonjour
Merci beaucoup pour cette piste
je teste en mettant l'heure dans une variable
en efffet, tous les heures ce job doit etre exécuté

[Cachlab]

Salut, je viens de faire un test qui semble fonctionner :

Code :

1
2
3
4
5
6
7
8
Dim Date_heure_fichier, Date_heure_courante, Ecart
Set oFSO = CreateObject("Scripting.FileSystemObject")
Fichier = "C:\Source\test.txt"
Set Ofl = oFSO.GetFile(Fichier)
Date_Heure_Fichier = oFL.DateLastModified
Date_heure_courante = now
Ecart = Date_heure_courante - Date_Heure_Fichier
If Ecart < 0.04 Then oFSO.CopyFile Fichier, "C:\Dest\", True

Bref, on peut soustraire 2 dates et 1 heure écoulée semble correspondre à 0.04 unités.

[ProgElecT]

Salut

pour informations, des fonctions existent pour le calcul lié aux dates.

Comment ajouter des heures, des jours ou des mois à une date ?
DateAdd: Renvoie une date à laquelle un intervalle spécifique a été ajouté.

Comment déterminer le premier jour d'une semaine ?
DatePart: Renvoie la partie spécifiée d'une date donnée.

Comment calculer le temps écoulé entre deux dates ?
DateDiff: Renvoie le nombre d'intervalles entre deux dates

La dernière fonction mentionnée semblerait mieux adaptée et plus lisible pour ton besoin.

Bien que faisant partie de la FAQ VB6, ces fonctions sont utilisables sous VBScript

[qmike]

bonjour
merci pour ces réponses