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