More File Icons

Is there a way to make it so that there will be icons next to the files. such as ".doc" files have the icon "doc.png" and so forth....?

NVM I got it

How please share your wisdom

Edit the part of Default.asp that makes the "Viewable" and "Editable" icons appear. Just edit the code enough so that it will add different icons... Example below is what I did on mine:


Function GetIcon(fileName, isFolder)
        Dim ext

        If isFolder Then
            GetIcon = "<img align=absmiddle border=0 width=16 height=16 src=""./images/folder.png"" alt=""Folder"">"
        Else
            ext = FSO.GetExtensionName(fileName)
            
            re.IgnoreCase = true
            re.Pattern = "^" & ext & ",|," & ext & ",|," & ext & "$"

            If re.test(editableExtensions) Then
                GetIcon = "<img align=absmiddle border=0 width=16 height=16 src=""./images/defaul4.gif"" alt=""Microsoft Word Document"">"
            else
            If re.test("ppt,ppt") Then
                GetIcon = "<img align=absmiddle border=0 width=16 height=16 src=""./images/PPT.gif"" alt=""Microsoft Power Point Presentation"">"
            else
            If re.test("xls,xls") Then
                GetIcon = "<img align=absmiddle border=0 width=16 height=16 src=""./images/XLS.gif"" alt=""Microsoft Excel Workbook"">"
            else
            If re.test("htm,html,asp,aspx,dhtml,js,jsp,xml,xsl") Then
                GetIcon = "<img align=absmiddle border=0 width=16 height=16 src=""./images/Internet.gif"" alt=""Dynamic Web Document"">"
            else
            If re.test("zip,zip") Then
                GetIcon = "<img align=absmiddle border=0 width=15 height=16 src=""./images/ZIP.gif"" alt=""Zipped (Compressed) Folder"">"
            else
            If re.test("swf,fla") Then
                GetIcon = "<img align=absmiddle border=0 width=14 height=16 src=""./images/Flash.gif"" alt=""Macromedia Flash File"">"
            else
            If re.test("mdb,mdb") Then
                GetIcon = "<img align=absmiddle border=0 width=16 height=16 src=""./images/MDB.gif"" alt=""Microsoft Access Database"">"
            else
            If re.test("txt,txt") Then
                GetIcon = "<img align=absmiddle border=0 width=12 height=16 src=""./images/Txt.gif"" alt=""Standard Text Document"">"
            else
            If re.test("avi,mp3,wav,mid,mpeg,mpg,wpl,wmv,mov") Then
                GetIcon = "<img align=absmiddle border=0 width=16 height=16 src=""./images/Media.gif"" alt=""Microsoft Windows Media Player"">"
            ElseIf re.test(viewableExtensions) Then
                GetIcon = "<a href=""javascript:Command('View', &#34;" & fileName & "&#34;);""><img align=absmiddle border=0 width=14 height=16 src=""./images/Picture1.gif"" alt=""Picture file - Click to view and learn details""></a>"
            Else
                GetIcon = "<img align=absmiddle border=0 width=14 height=16 src=""./images/Defaul13.gif"" alt=""General Windows File"">"
            End If
            end if
            end if
            end if
            end if
            end if
            end if
            end if
            end if
        End If
    End Function