vbscript - vbs で特定の拡張子を持つフォルダーから最後に変更されたファイルを取得する

Question

次のコードがあり、拡張子 PNG と最新の最終更新日を含むファイルを見つけるだけで、最終更新日を見つけることができますが、ファイルに拡張子をチェックすると、[オブジェクト] のエラーが発生します。行 [いくつかの番号] に 'recentFile' が必要です]

脚本

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

後で拡張子を確認できることはわかっていますが、問題は、PNG ではない最新のファイルがある場合はどうなるかということです。PNG拡張子のファイルがありますが、他のファイルと比較して最新ではないため、PNGファイルのみの最終更新日から最新のPNGを見つける必要があります。どのように実装できますか?