FA5Icon_FromExt

Gets FontAwesome 5 icon for a file using its extension
Used in MyDev website

CodeFunctionName
What is this?

Public

Tested

Original Work
Function FA5Icon_FromExt(FileName)
    Fexx                        = GetExtension(FileName)
    FA5Icon_FromExt        = "far fa-file"
    Select case UCase(Fexx)
    Case "TXT", "INI"
        FA5Icon_FromExt    = "far fa-file-alt"
    Case "ZIP", "RAR", "7Z"
        FA5Icon_FromExt    = "far fa-file-archive"
    Case "DOC", "DOCX"
        FA5Icon_FromExt    = "far fa-file-word"
    Case "PPT", "PPTX"
        FA5Icon_FromExt    = "far fa-file-powerpoint"
    Case "HTM", "HTML", "ASP", "PHP"
        FA5Icon_FromExt    = "far fa-file-code"
    Case "XLS", "XLSM", "XLSX", "XLSB"
        FA5Icon_FromExt    = "far fa-file-excel"
    Case "FLV", "MP4", "MPG", "MOV"
        FA5Icon_FromExt    = "far fa-file-video"
    Case "JPG", "PNG", "GIF", "BMP"
        FA5Icon_FromExt    = "far fa-file-image"
    Case "PDF"
        FA5Icon_FromExt    = "far fa-file-pdf"
    End Select
End Function

FileName

Views 4,853

Downloads 1,409

CodeID
DB ID

ANmarAmdeen
602
Attachments
Revisions

v2.0

Sunday
August
9
2020