Bonjour,

je cherche comment récupérer le fichier qui a été modifié le plus récemment,

par exemple:

alert_base. log dernière modification le "01/12/2007 05:04:43"
alert_test.log dernière modification le "22/01/2009 16:30:45"
alert_toto.log dernière modification le "10/06/2014 17:56:23"

je voudrais donc juste récupérer le plus récent qui est alert_toto.log

pour récupérer les fichier j'utilise ce code la


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
    Dim objFso, oFile, RepTest, oFold, Resultat
 
    Set objFso = CreateObject("Scripting.FileSystemObject")
    RepTest = "C:\Temp" ' A modifier selon le besoin
    Set oFold = objFso.GetFolder(RepTest)
    Resultat = ""
    For Each oFile In oFold.Files
        If LCase(Left(oFile.Name, 6))  = "alert_" And LCase(Right(oFile.Name, 4)) = ".log" Then 
           ' Cette condition utilisant LCase permet d'ignorer la casse
           ' Autrement dit pas sensible à la casse(ignorant minuscule /majuscule)
          Resultat = Resultat & oFile.Path & vbCrLf
        End If
    Next
    ' Affichage de la liste des fichiers(avec chemin complet) répondant au critère de recherche
    MsgBox Resultat
Merci d'avance

Galène