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?