copier xx fichier d'apres leurs date de modification

Version imprimable

Bonjour le Forum,

Je voudrais copier que les 10 derniers fichiers modifiés d'un répertoire présis sur clé USB.
Les fichiers sont de taille différents, ce sont des fichiers .log, créés puis modifiés automatiquement tous les x jours (aléatoire).
Pour mes analyses aprés, seule les 10 derniers sont intéréssent.
Code:

1 2 3 4 5 6 7 8 9 10 11 rep1 = "C:\transfer\" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(rep1) Set fFichiers = f.Files For Each fTemp In fFichiers ' Copier sur clé USB, que les 10 derniers fichiers modifiés ... msgbox fTemp.Name & " - " & fTemp.DateLastModified next
Un petit exemple ou un lien, serait le bien venu.

Merci d'avance..

07/05/2009, 08h55
ced600

Je te conseille d'utiliser des algos de Min Max pour trier tes fichiers en fonction de la date puis de prendre les dix premiers (ou dernier).

Tu auras besoin de la fonction VBS DateDiff pour comparer les date des fichiers.

Bonjour le Forum,

Merci ced600 pour les infos.
Je suis novise en VBS est un petit bout de code m'aiderais un peu plus.
Je vais continuer à chercher.
Avec la fonction DateDiff : j'arrive déjà à trier d'après un nombre de jour, mais dommage, les fichiers ne corresponde pas à 10 jours mais xx jours aléatoire.
Code:

1 2 3 4 5 6 7 For Each fTemp In fFichiers If DateDiff("d", fTemp.DateLastModified, Date) < 10 Then msgbox fTemp.Name & " - " & fTemp.DateLastModified ' Copie des fichiers sur 10 jours. end if next
En VB6, je pourrais stocker les dates dans une liste et avec la proprièté

Code:

Sorted = true

en sortir que les 10 (prenier ou dernier).
Peut-t'on faire ça en VBS ?

Merci d'avance

11/05/2009, 12h36
ced600

En fait moi j'aurais créer un dictionnaire et je l'aurais remplis avec les date de tes fichiers.

pour ce faire j'insère la première date en premier.
Puis pour les autres je compare avec toutes les autres dates rentré dans le dico pour l'insérer de façon trier (entre deux dates, au début ou à la fin).

Une entrée d'un dictionaire est un couple clé/valeur. donc tu peux utiliser les date en clé, et en valeurs le noms des fichiers pour faire le lien.

Puis tu parcours tes dix premières entrées pour connaitre les 10 fichiers plus récents.

Désolé mais je n'ai pas le temps d'écrire un code VBS.