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

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

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.

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é

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.

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

bonjour
merci pour ces réponses