वीबीस्क्रिप्ट का उपयोग एक ही फ़ोल्डर में सबसे हालिया फ़ाइल दिनांक को खोजने के लिए

Question

मैं इस वीबीस्क्रिप्ट को केवल नवीनतम फ़ाइल का नाम और अंतिम संशोधित दिनांक वापस करने के लिए कैसे संशोधित कर सकता हूं? वर्तमान में यह पिछले 24 घंटों में कुछ भी संशोधित करता है। मैं केवल सबसे हाल की फाइल देखना चाहता हूं। मैंने इसे स्टैक ओवरफ्लो से उधार लिया, अभी तक एक वीबीस्क्रिप्ट विज़ार्ड नहीं।

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