Discussion :

[galene86]

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

[hackoofr]

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

[galene86]

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 :

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

[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

[hackoofr]

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é
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
@+

[hackoofr]

Testez ce code trouvé ici :

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