sammenligne filnavne

Hvad med noget i den her retning?


Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Server.Mappath("/upload/pic/galleri")&"/"&request.QueryString("galleriID"))
Set fc = f.Files
For Each whatever in fc

%>

        <% = whatever.name %><br>
        <%
            strSQL = "SELECT * FROM galleriBilleder WHERE navn = '"&whatever.name&"'"
            set rs = MyConn.Execute(strSQL)
           
           
                           
           
                if rs.eof or rs.bof then
                        Response.Write "Der kunne ikke findes billede/fil -navn i DB!<br>"
                       
                                    Set fs = CreateObject("Scripting.FileSystemObject")
                                        If (fs.FileExists ("Server.Mappath("/upload/pic/galleri")&"/"&request.QueryString("galleriID")"&whatever.name&"") = True) Then
                                            fs.DeleteFile("Server.Mappath("/upload/pic/galleri")&"/"&request.QueryString("galleriID")"&whatever.name&"")
                                            Response.Write "Filen er slettet"
                                        End if
                                    Set fs = nothing
                else
                    do
                        Response.write "<br>"
                    rs.movenext
                    loop while not rs.eof
   
                end if
               
               
       
Next

ja præcis :) smid et svar så får du point

Her har du et svar ;-)