Używanie VBScript do znalezienia najnowszej daty pliku w jednym folderze

Question

Jak mogę zmodyfikować ten skrypt VBScript, aby zwracał tylko nazwę najnowszego pliku i datę ostatniej modyfikacji? Obecnie zwraca wszystko zmodyfikowane w ciągu ostatnich 24 godzin. Chcę wyszukać tylko najnowszy plik. Pożyczyłem to od StackOverflow, jeszcze nie kreatora VBScript.

option explicit 
dim fileSystem, folder, file 
dim path 
path = "C:\test" 
Set fileSystem = CreateObject("Scripting.FileSystemObject") 
Set folder = fileSystem.GetFolder(path) 
for each file in folder.Files   
if file.DateLastModified > dateadd("h", -24, Now) then   
'whatever you want to do to process'   
WScript.Echo file.Name & " last modified at " & file.DateLastModified  
end if 
next 

Answer 1

jesteś całkiem blisko niego:

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