Discussion :

[captainamerica75]

Bonjour a tous,

Voila j'ai un script qui me permet de copier le contenu d'un répertoire donné vers un répertoire temporaire.
Je cherche la facon dont je pourrais copier uniquement les derniers fichiers crees.

Est ce que quelqu'un pourrait me filer un pti coup de pouce svp?

merci à vous et bonne journée.

[pc75]

Bonjour,

Si tu utilises FileSystemObject, il existe la propriété LastModified qui te renvoie la date du fichier.

Mais il faudrait que tu nous en dise plus sur la méthode que tu utilises.

[captainamerica75]

Bonjour PC75,

voici le code que j'utilise

Code :

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

1
2
3
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "D:\Toto\Fic_entree\*.*","D:\Tmp\",True

par défaut j'ai mis "*.*" et j'aimerais en fait qu'il me récupère et me copie les derniers fichiers du jour cree

Merci à toi,

[ced600]

Pour cela tu doit récupérer l'enssemble des fichiers se trouvant dans ton répertoire :
http://www.activexperts.com/activmon...esInFolder.htm
Puis dans la boucle (cf le code du site que je viens de te passer) tu compares la valeur de LastModified de chaque fichier à la date du jour.
Et finalement tu copie les fichier les plus récent.


Fouille un peu le liens que je viens te passer il est bourré d'exemple de script qui sont très intéressant.