delete fil i mappe

Hvad med alle de links du måtte have til billederne, bliver de så ikke forkerte?

nej det betyder ikke noget

OK, jeg skriver lige lidt kode til dig.

Husk du skal have skrive og slette rettigheder til folderen, ellers virker det ikke. Desuden skal du rette DinFolder (3 steder) og i variablen v_slettet_fil skal du skrive det filnavn på den fil du har slettet!

-------------------------------------------------------------------------------------

<%
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set fsoren=server.createobject("scripting.filesystemobject")

  Set objFolder = fso.GetFolder(Server.Mappath("DinFolder"))

  v_slettet_fil = "4.jpg"
  v_slettet_nr  = Left(v_slettet_fil,instr(v_slettet_fil,".")-1)
 
  For Each file in objFolder.Files
    v_nr = Left(file.Name,instr(file.Name,".")-1)
    if cint(v_nr) > cint(v_slettet_nr) then
      fsoren.MoveFile Server.MapPath("DinFolder/" & file.Name), Server.MapPath("DinFolder/" & v_nr-1 & ".jpg")
    end if
  Next
%>

hmm okay prøver det lige

men hvorfor creater du FSO 2 gange med både fso og fsoren?

Uvidenhed. Jeg var i tvivl om hvor vidt jeg kunne benytte den samme til at loope i folderen og til at move/rename filer med.

det endte med at se sådan ud:
---------------------------

  if request.QueryString("action")="delete" then
  varOut="<span class=""fejl"">Filen kunne ikke findes!</span>"
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
      sti=Server.Mappath("upload/pic/dyr/"&request.QueryString("dyr"))
     
      if fso.FileExists(sti&"/"&request.QueryString("pic")) then
        slettet_fil=request.QueryString("pic")
        v_slettet_nr  = Left(slettet_fil,instr(slettet_fil,".")-1) 
         
          fso.DeleteFile(sti&"/"&slettet_fil)
         
          Set objFolder = fso.GetFolder(sti)

          For Each file in objFolder.Files
            v_nr = Left(file.Name,instr(file.Name,".")-1)
            if cint(v_nr) > cint(v_slettet_nr) then
              fso.MoveFile sti&"/" & file.Name, sti &"/"& v_nr-1 & ".jpg"
            end if
          Next
          varOut="<span class=""succes"">Billedet er nu slettet!</span>"
      end if
  Set fso = Nothing
  End if

-------
kan man hvis man f.eks trykker på et link noget i stil med "2.jpg-Ned" så bliver 2.jpg til 3.jpg og tidligere 3.jpg bliver til 2.jpg

Det er vel lidt i stil med det andet...hvis du kan klare den skal jo nok smide lidt ekstra point i puljen

Forstår jeg dig ret, du vil gerne bytte rundt på de 2 filnavne?

ja når billederne bliver udskrevet, bliver de udskrevet i rækkefølgen 1,2,3,4,5
jeg havde tænkt noget i stil med:
BILLEDE1 ned>, <op BILLEDE2 ned> osv.

Det kræver at der aldrig er brud på rækkefølgen

yep det er der heller ikke, min upload, og den delete funktion der lige er blevet lavet sørger for at der ikke kommer brud på rækken. Det eneste der variere er hvor mange filer der er, men det kan man vel kontrollere med Count

Jeg har ikke testet det, men det må være sådan noget lignende for at skifte ned. V_FILNAVN er det filnavn som skal ændres, og V_GEM er et midlertidigt filnavn og V_SKIFTMED er det filnavn som der skal byttes navn med.
----------------------------------------------------------------------------------
<%

  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  sti=Server.Mappath("upload/pic/dyr/"&request.QueryString("dyr"))

  v_filnavn = "3.jpg"
  v_gem    = "abc.jpg"     
  v_nr = Left(v_filnavn,instr(v_filnavn,".")-1)
  v_skiftmed = cstr(cint(v_nr)-1) & ".jpg"
  fso.MoveFile sti&"/" & v_filnavn, sti &"/"& v_nr-1 & v_gem
  fso.MoveFile sti&"/" & v_skiftmed, sti &"/"& v_nr-1 & v_filnavn
  fso.MoveFile sti&"/" & v_gem, sti &"/"& v_nr-1 & v_skiftmed

  Set fso = Nothing
%>

jeg kunne ik lige få dit sidste script til at virke, men jeg har alvet noget andet i stedet...men mange tak for hjælpen : )

OK, takker for points'ne

//nordclc