Slet 2 filer med fso..

Prøv at se hvad den siger til denne her:

<%
if Request.QueryString("pic") = "delete" then
   
    Set rs12 = Conn.Execute("select billede from billede where billedeid = " & Request.QueryString("billedeid"))

    'sletter billedet fra vores folders
    set fso = createobject("scripting.filesystemobject")
 
    If fso.FileExists(server.mappath("../new/realfolder/" & rs12("billede") & "")) Then
      fso.DeleteFile(server.mappath("../new/realfolder/" & rs12("billede") & ""))
      Response.Write "Filen i 'realfolder' blev slettet og fundet!<br /><br />"
    End If

    If fso.FileExists(server.mappath("../new/tempfolder/" & rs12("billede") & "")) Then
      fso.DeleteFile(server.mappath("../new/tempfolder/" & rs12("billede") & ""))
      Response.Write "Filen i 'tempfolder' blev slettet og fundet!"
    End If

    Set fso = Nothing

    Conn.Execute("delete * from billede where billedeid = " & Request.QueryString("billedeid"))
    Response.Redirect("?mode=")

end if
%>

Og husk selvfølgelig at slå din Response.Redirect fra, for ellers kan vi ikke få noget svar, altså sådan her:

<%
if Request.QueryString("pic") = "delete" then
   
    Set rs12 = Conn.Execute("select billede from billede where billedeid = " & Request.QueryString("billedeid"))

    'sletter billedet fra vores folders
    set fso = createobject("scripting.filesystemobject")
 
    If fso.FileExists(server.mappath("../new/realfolder/" & rs12("billede") & "")) Then
      fso.DeleteFile(server.mappath("../new/realfolder/" & rs12("billede") & ""))
      Response.Write "Filen i 'realfolder' blev fundet og slettet"
    Else
      Response.Write "Filen i 'realfolder' blev <b>IKKE</b> fundet"
    End If

    If fso.FileExists(server.mappath("../new/tempfolder/" & rs12("billede") & "")) Then
      fso.DeleteFile(server.mappath("../new/tempfolder/" & rs12("billede") & ""))
      Response.Write "Filen i 'tempfolder' blev slettet og fundet!"
    Else
      Response.Write "Filen i 'tempfolder' blev <b>IKKE</b> fundet"
    End If

    Set fso = Nothing

    Conn.Execute("delete * from billede where billedeid = " & Request.QueryString("billedeid"))
    ' Response.Redirect("?mode=")

end if
%>

nu sletter den ingenting

Filen i 'realfolder' blev fundet og slettetFilen i 'tempfolder' blev IKKE fundet

Ok - prøv at sæt det sidste ind jeg skrev og så meld tilbage hvad den skriver!

men den sletter ingenting

til indlæg kl. 20:19:58 -
stadig ingenting

Det er sådan set ligemeget pt., jeg vil gerne ha af vide hvad den fortæller dig for jeg har fået den til at tjekke om filen virker

Den må fortælle dig noget, jeg har lavet 2 Response.Write i hver sætning. Så den burde meget gerne komme med et svar.

Den skriver:

Filen i 'realfolder' blev fundet og slettet - Filen i 'tempfolder' blev IKKE fundet

Hmm. Hvorfor ikke også bruge den absolutte sti i stedet for det der med at hoppe et niveau tilbage, det er sjældent den forstår det.

Du burde hellere skrive hele stien fx. sådan her:
Server.Mappath("/forrigeMappe/new/tempfolder/" & rs12("billede") & ""))

det prøver jeg lige 2.sek...

Men jeg synes bestemt det lugter rigtig meget hen af at filen ikke eksisterer i tempfolderen, for lige nu tjekker den om den eksisterer og tror ikke dne tager fejl.

den siger:

Filen i 'realfolder' blev fundet og slettet
Filen i 'tempfolder' blev IKKE fundet

med:
<%
    if Request.QueryString("pic") = "delete" then
       
        Set rs12 = Conn.Execute("select billede from billede where billedeid = " & Request.QueryString("billedeid"))
   
        'sletter billedet fra vores folders
        set fso = createobject("scripting.filesystemobject")
     
        If fso.FileExists(server.mappath("realfolder/" & rs12("billede") & "")) Then
          fso.DeleteFile(server.mappath("realfolder/" & rs12("billede") & ""))
          Response.Write "Filen i 'realfolder' blev fundet og slettet<br>"
        Else
          Response.Write "Filen i 'realfolder' blev <b>IKKE</b> fundet<br>"
        End If
   
        If fso.FileExists(server.mappath("tempfolder/" & rs12("billede") & "")) Then
          fso.DeleteFile(server.mappath("tempfolder/" & rs12("billede") & ""))
          Response.Write "Filen i 'tempfolder' blev slettet og fundet!"
        Else
          Response.Write "Filen i 'tempfolder' blev <b>IKKE</b> fundet"
        End If
   
        Set fso = Nothing
   
        Conn.Execute("delete * from billede where billedeid = " & Request.QueryString("billedeid"))
        ' Response.Redirect("?mode=")
   
    end if
   
    %>

kan det have noget at gøre med delete funktionen i databasen ligger for sig selv og at den delete'er database inputten før den får hentet filnavnet ud..

Nej, slet ikke. Den henter jo fint filnavnet til den første slet funktion til FSO objektet. er det den hele sti? Det synes jeg bestemt ikke det ligner, for før gik du også hen i anden mappe der hedder 'new' - men du burde nok kontrollere om filen eksisterer.

Eller evt. udskrive stien sådan her:
Response.Write Server.Mappath("tempfolder/" & rs12("billede") & ""))

jeg har flyttet det hele ind i en mappe for sig selv med undermapperne "tempfolder" & "newfolder".

når jeg bytter om på if-sætningerne så tempfolder står øverst siger den at den ikke kan finde filen i realfolder...

Hmm - så prøver vi noget andet :-)

<%
if Request.QueryString("pic") = "delete" then
   
    Set rs12 = Conn.Execute("select billede from billede where billedeid = " & Request.QueryString("billedeid"))

    ' Definerer billede
    strBillede = rs12("billede")

    'sletter billedet fra vores folders
    set fso = createobject("scripting.filesystemobject")
 
    If fso.FileExists(server.mappath("../new/realfolder/" & strBillede & "")) Then
      fso.DeleteFile(server.mappath("../new/realfolder/" & strBillede & ""))
      Response.Write "Filen i 'realfolder' blev fundet og slettet<br />"
    Else
      Response.Write "Filen i 'realfolder' blev <b>IKKE</b> fundet<br />"
    End If

    If fso.FileExists(server.mappath("../new/tempfolder/" & strBillede & "")) Then
      fso.DeleteFile(server.mappath("../new/tempfolder/" & strBillede & ""))
      Response.Write "Filen i 'tempfolder' blev slettet og fundet!"
    Else
      Response.Write "Filen i 'tempfolder' blev <b>IKKE</b> fundet"
    End If

    Set fso = Nothing

    Conn.Execute("delete * from billede where billedeid = " & Request.QueryString("billedeid"))
    ' Response.Redirect("?mode=")

end if
%>

Hov, nej du har jo rettet om på mapperne:

<%
if Request.QueryString("pic") = "delete" then
   
    Set rs12 = Conn.Execute("select billede from billede where billedeid = " & Request.QueryString("billedeid"))

    ' Definerer billede
    strBillede = rs12("billede")

    'sletter billedet fra vores folders
    set fso = createobject("scripting.filesystemobject")
 
    If fso.FileExists(server.mappath("realfolder/" & strBillede & "")) Then
      fso.DeleteFile(server.mappath("realfolder/" & strBillede & ""))
      Response.Write "Filen i 'realfolder' blev fundet og slettet<br />"
    Else
      Response.Write "Filen i 'realfolder' blev <b>IKKE</b> fundet<br />"
    End If

    If fso.FileExists(server.mappath("tempfolder/" & strBillede & "")) Then
      fso.DeleteFile(server.mappath("tempfolder/" & strBillede & ""))
      Response.Write "Filen i 'tempfolder' blev slettet og fundet!"
    Else
      Response.Write "Filen i 'tempfolder' blev <b>IKKE</b> fundet"
    End If

    Set fso = Nothing

    Conn.Execute("delete * from billede where billedeid = " & Request.QueryString("billedeid"))
    ' Response.Redirect("?mode=")

end if
%>

nu funger det...

men jeg faktisk osse et andet spørgsmål ang. noget asp.image..

Ok, så burde du nok oprette et nyt spørgsmål så andre kan få gavn af det.

Men smider et svar her, det var godt vi fik det til at fungere :-)