How to target just .XLS extension and not implicitly .XLSX ?

[johngalvin]

Hello,

This is what I've tried, but if the document is .xlsx it will be taken because the code wants at least .xls, hence .xlsx is considered unfortunately, because it contains .xls
Is there any way to target just .xls?

Many thanks !

John

If Dir(stFileName) = "" Then
If UCase(objAtt.DisplayName) Like "*.XLS" Then
If InStr(objAtt, "Media") > 0 Then
objAtt.SaveAsFile saveFolder & objAtt.DisplayName
End If
If InStr(objAtt, "Media") > 0 Then
objAtt.SaveAsFile saveFolder & objAtt.DisplayName
End If
End If