< Public Function IsHtmlExtension (Extension As String) As Boolean (?)

Comments

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

Public Function IsHtmlExtension (Extension As String) As Boolean

    Select Case LCase(Extension)
        Case "html", "htm", "php", "shtm", "shtml", "dhtm", "dhtml"
            IsHtmlExtension = True
        Case Else:
            IsHtmlExtension = False
    End Select
End Function

Copying, Return to index