Curious what we can do for you?
©2024 Blue Polar. All rights reserved.
Public Function GetFileExtension(ByVal FileName As String) As String
Returns the file extension of the specified file name.
Dim lFileExtension = GetFileExtension(pSpecifiedFileName)
If LCase(lFileExtension) In {"jpg", "jpeg", "png", "gif", "bmp", "svg"} Then
SendDbug $"The file {pSpecifiedFileName} looks like an image."
End If