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
Merci d'avance
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
Galène
Partager