Использование VBScript для поиска последней даты файла в одной папке

Question

Как я могу изменить этот VBScript, чтобы возвращать только имя самого последнего файла и дату последнего изменения? В настоящее время он возвращает все изменения за последние 24 часа. Я хочу искать только последний файл. Я заимствовал это из StackOverflow, еще не мастера 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

вы очень близко к нему:

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