Holen Sie sich die zuletzt geänderte Datei aus einem Ordner mit einer bestimmten Erweiterung in vbs

Ich habe den folgenden Code. Alles, was ich brauche, ist die Datei mit der Endung PNG und dem letzten Änderungsdatum zu finden. Ich kann das letzte Änderungsdatum finden. Wenn ich jedoch die Endung über der Datei überprüfe, wird der Fehler [Objekt benötigt 'recentFile' in Zeile [eine Nummer]]

SKRIPT

For Each objFile in colFiles
    ' Finds the latest modified file in folder
    if (recentFile is nothing) then
        Set recentFile = objFile
        elseif (objFile.DateLastModified > recentFile.DateLastModified) then
            Set recentFile = objFile
    end if
Next

Ich weiß, dass ich die Erweiterung später überprüfen kann, aber das Problem ist, dass es eine Datei gibt, die aktuell und nicht PNG ist. Es gibt zwar Dateien mit der Erweiterung PNG, die jedoch im Vergleich zu anderen Dateien nicht aktuell sind. Ich muss also nur PNG mit dem letzten Änderungsdatum für PNG-Dateien auf den neuesten Stand bringen. Wie kann ich das implementieren?

Antworten auf die Frage(1)

Ihre Antwort auf die Frage