Funktion til sletning af filer på serveren

Du kan måske enten lave en admin knap hvor du sætter funktionen igang eller sætter den ind i en admin global.asa

Du kan jo prøve at lave en filelist med FSO og så sætte sætte værdierne ind i et array, som du så gennemgår med dine records, og hvis de ikke ligner (<> "") så skal den slette dem. Lyder det helt umuligt?

Du kan prøve med den her, jeg har selv brugt den til det samme.

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strconnect



taller = 0
strBilledMappe = "C:/inetpub/bla-bla/mappe_med_billeder/"
dirtowalk = "../mappe_med_billeder/"

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(dirtowalk))
Set fc = f.Files
For Each whatever in fc
if taller = 0 then
Response.Write "<br>"
end if
%>
    <TD>
        <% = dirtowalk %><% = whatever.name %><br>
        <%
       
            strSQL = "SELECT * FROM DinTabel WHERE billedekolonne = '"&whatever.name&"'"
            set rs = objConn.Execute(strSQL)
           
            if not whatever.name = "navn_paa_Fil_Der_ikke_Skal_slettes.htm" then
                           
           
                if rs.eof or rs.bof then
                        Response.Write "Der kunne ikke findes nogen records med dette billede/fil -navn!<br>"
                       
                                    Set fs = CreateObject("Scripting.FileSystemObject")
                                        If (fs.FileExists (""&strBilledMappe&""&whatever.name&"") = True) Then
                                            fs.DeleteFile (""&strBilledMappe&""&whatever.name&"")
                                            Response.Write "Filen er slettet"
                                        End if
                                    Set fs = nothing
                else
                    do
                        Response.write "Billede:" & rs("billedekolonne")
                    rs.movenext
                    loop while not rs.eof
   
                end if
               
               
            end if



Next



objConn.Close
set objConn = nothing

%>

BEKLAGER meget det sene svar! Kom med et svar loukas og få dine points.