file io - solo - Usar VBScript para encontrar la fecha del archivo más reciente en una sola carpeta

script para copiar archivos de una carpeta a otra windows

Question

¿Cómo podría modificar este VBScript para devolver solo el nombre del último archivo y la última fecha de modificación? Actualmente devuelve todo lo modificado en las últimas 24 horas. Quiero buscar el archivo más reciente solamente. Tomé prestado esto de StackOverflow, todavía no es un asistente de 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

estás muy cerca de eso:

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