What is wrong with this code:
// ********** ********** ********** **********
// Add only file matching image extension
// Start with the list of items to ignore
// Then Check what I want and store if OK
Select Case img_FI
// Ignore Cases
Case img_FI.IsAlias
Case img_FI.IsFolder
Case Not img_FI.Visible
Case img_FI.Name.Left(1) = "."
// Take Cases
Case img_FI.Name.InStr(".gif.jpg.jpeg.pdf.png.tif.tiff.webp") > 0
Names_List.Add img_FI.Name
Else
// Let these in the Vaults
End Select
The error lies in the Select Case Img_FI line
The errors from the Debuger:
Another Select Case taken from the LR show no error once I commented this one.
I even removed the comments, and use only End (instead of End Select)
Sequoia / 2024r4.1 (too)
11 posts - 7 participants
