Récupérer le fichier le plus récent

Version imprimable

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:

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

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Dim objFso, oFile, RepTest, oFold, Resultat ,dblToday
Set objFso = CreateObject("Scripting.FileSystemObject")
RepTest = "C:\Temp" ' A modifier selon le besoin
Set oFold = objFso.GetFolder(RepTest)
Resultat = ""
dblToday = Date()
For Each oFile In oFold.Files
    If LCase(Left(oFile.Name, 6))  = "alert_" And LCase(Right(oFile.Name, 4)) = ".log" And dblToday = Fix(oFile.DateLastModified) 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

En cherchant un peu on trouve donc voila en utilisant "DateLastModified" et "DateDiff" :)

je met mon code final ça peut intéresser des personnes :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
alert_log = ""
   Set objFso = CreateObject("Scripting.FileSystemObject")
    Set oFold = objFso.GetFolder(REP)
    Resultat = ""
	Hor= "01/01/1970 00:00:37"
    For Each oFile In oFold.Files
        If LCase(Left(oFile.Name, 6))  = "alert_" And LCase(Right(oFile.Name, 4)) = ".log" Then 'récupération des fichier alert_*.log
          Resultat = oFile.Path
 
		  if objFso.FileExists(resultat) then 													'récupération du dernier fichier modifié 
				Hor_next = objFso.GetFile(resultat).DateLastModified
				diff = DateDiff("s",Hor_next,Hor)
 
				if Diff < 0 then 
				Hor = Hor_next
				alert_log = oFile.Name
				end if 
			end if 
        End If
    Next
	wscript.echo alert_log

22/05/2015, 14h52
galene86

Merci :)

j'ai essayé avec ton code mais ça ne marche pas, pourtant j'ai la même chose après j'ai trouvé un moyen c'est peut être pas le plus simple (je suis pas dev à la base ) mais il marche :)
22/05/2015, 15h01
hackoofr

Citation:

Envoyé par galene86

Merci :)
j'ai essayé avec ton code mais ça ne marche pas, pourtant j'ai la même chose après j'ai trouvé un moyen c'est peut être pas le plus simple (je suis pas dev à la base ) mais il marche :)

J'ai un peu anticipé et je n'ai pas bien lu ce que vous voulez faire exactement , désolé :oops:
Oui, vous avez raison car le code que j'ai posté marche seulement quand on veut comparer les fichiers modifiés avec la date courante ;)
Essayez de créer un fichier exemple : avec la date courante et testez-le :king:
@+

Testez ce code trouvé ici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit  
Dim fso, path, file, recentDate, recentFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFile = Nothing
For Each file in fso.GetFolder("C:\Temp").Files
  If (recentFile is Nothing) Then
    Set recentFile = file
  ElseIf (file.DateLastModified > recentFile.DateLastModified) Then
    Set recentFile = file
  End If
Next
 
If recentFile is Nothing Then
  WScript.Echo "no recent files"
Else
  WScript.Echo "Recent file is " & recentFile.Name & " " & recentFile.DateLastModified
End If