Discussion :

[patou41000]

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 :

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

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

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

[patou41000]

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 :

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

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 :

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

Sorted = true

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

Merci d'avance

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