Hvordan finder man og deler et ukendt filnavne

dette er en fortsættelse af
http://www.eksperten.dk/spm/235470

hej indtil vidre har medions hjælp været størst jeg er kommet frem til denne kode der kun kikker på .doc &.txt filer så langt så godt
nu omhandler det at kunne tage to forskellige filer som er ens i mine øjne. Men har den diference at den ene hedder "nr1", "nr2" & "_ok" den anden hedder "_ikker-ok" disse to/fire værdier skal ligge under samme filnavn i tabellen

<%
Set fs = Server.CreateObject( "Scripting.FileSystemObject" )
Set myFolder = fs.GetFolder( Request.ServerVariables("APPL_PHYSICAL_PATH") )
%>


<TABLE WIDTH="100%" border="1">
<tr>
    <td WIDTH="300" align="left">Filnavn:</td>
    <td WIDTH="80" align="left">Nr:</td>
    <td WIDTH="80" align="left">Tilstand:</td>

</tr>

<% For Each thing in myFolder.Files
If Right(thing.Name,4) = ".doc" Or Right(thing.Name,4) = ".txt" Then %>


<%
strFileName = thing.Name
    lngLength = Len(strFileName) -4
    strFileName = Left(strFileName,lngLength)
    arrFileName = Split(strFileName,"_")

    Response.Write("Filnavn:  " & arrFileName(0) & "  ")
    Response.Write("Nr:  " & arrFileName(1) & "  ")
    Response.Write("Tilstand:  " & arrFileName(2) & "<br>")
%>


<tr>
    <td WIDTH="300" align="left"><%=Response.Write(arrFileName(0))%></td>
    <td WIDTH="80"><%=Response.Write(arrFileName(1))%></td>
    <td WIDTH="80"><a href="<%= thing.Name%>"><%=Response.Write(arrFileName(2))%></a></td>
   
</tr>

<% End If
Next %>
</table>

denne giver igen 200 point hvis jeg får en copy/past jeg kan bruge

MVH. Bimmer