Eu tenho o seguinte pedaço de código tudo que eu preciso é encontrar o arquivo com a extensão PNG e data mais recente última modificação, eu sou capaz de encontrar a data da última modificação, mas se eu colocar cheque da extensão sobre o arquivo dá erro de necessário 'recentFile' na linha [some number]]

ROTEIRO

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

Eu sei que posso verificar a extensão mais tarde, mas o problema é que, se houver um arquivo que é o mais recente e não é PNG? Embora existam arquivos com extensão PNG, mas não mais recentes, em comparação com outros arquivos, basta encontrar PNG com a última data modificada para os arquivos PNG, por favor, como posso implementá-lo?