List bestemte filer (fso)

Tja du løber vel alle filerne igennem undervejs, så er det jo blot at splitte stien på filerne mellem punktummer og se på endelsen, hvis det er asp så springer du den over og ellers skriver du den ud

Og hvis der er flere fil typer så laver du bare en array eller en komma liste over type navnene "txt, asp, inf" osv, og så tjekker du endelsen op på listen

Det er nemt med et regulært udtryk..

Set re = New RegExp
re.IgnoreCase = True
re.Pattern = "\.(txt|asp|inf)$" 'filer som ikke skal vises

filename = "test.asp"

If Not re.Test(filename) Then
    Response.Write "filnavn må vises"
Else
    Response.Write "filnavn må IKKE vises"
End If

Min liste er her:

arrApproved = Array("htm", "html", "txt", "xml", "xsl", "js", "css")

kode indtil nu (vis alle filer):


    For Each objFile In objFolder.Files

            strFileNames = strFileNames & objFile.Name & ";"

        Next

        If Len(strFileNames) > 0 Then strFileNames = Left(strFileNames, Len(strFileNames)-1)

        arrFileNames = Split(LCase(strFileNames), ";")

        arrFileNames = Sorter(arrFileNames)

        For t = 0 To UBound(arrFileNames)

            If t Mod 2 = 1 Then

                strBGClass = "oddcolor"

            Else

                strBGClass = "evencolor"

            End If

            Response.Write("<tr><td class=""" & strBGClass & """></td><td class=""" & strBGClass & """></td><td class=""" & strBGClass & """><IMG SRC=""img/filecontrol/file.gif"" alt="""">&nbsp;</td><td width=""100%"" class=""" & strBGClass & """>" & "<A HREF=""modules_filecontrol_file.asp?file=" & Server.URLEncode(strParentFolder & arrFileNames(t)) & """>" & arrFileNames(t) & "</A></td></tr>" & vbCrLf)

        Next

        Set objFSO = Nothing
        Set objFolder = Nothing

        Response.Write("</table>")

Lukker igen - har selv fundet svaret!!!