< Public Function IsGraphicsExtension (Extension As String, Optional AllowPNG As Boolean = True) As Boolean (?)

Comments

    
    '--------------------------------------------------------------
    'Tests if an extension is a type of graphic file
    '--------------------------------------------------------------

Public Function IsGraphicsExtension (Extension As String, Optional AllowPNG As Boolean = True) As Boolean

    
    Select Case LCase(Extension)
        Case "tif", "tiff", "bmp", "ico", "jpe", "jpeg", "jpg", "gif":
            IsGraphicsExtension = True
        
        Case "png":
            IsGraphicsExtension = AllowPNG
            
        Case Else:
            IsGraphicsExtension = False
    End Select
End Function

Copying, Return to index