Slet folder med indhold samt recordset i access

<%
itemName = rs("emne")
Set FSO = server.CreateObject("Scripting.FileSystemObject")

FSO.DeleteFolder itemName, true
If (err.Number <> 0 ) Then
  response.write "Unable to delete the folder """ & itemName & """, an error occured..."
  Else
    response.write "Deleted the folder """ & itemName & """..."
End If
%>

Sådan her vil jeg tro...

altså samlet skal det se ud som:

Set rs = Server.CreateObject("ADODB.RecordSet")

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/angelica.mdb")

rs.Open "annonce", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable

rs.find "id=" & request.querystring("id")

itemName = rs("emne")
Set FSO = server.CreateObject("Scripting.FileSystemObject")

FSO.DeleteFolder itemName, true
If (err.Number <> 0 ) Then
  response.write "Unable to delete the folder """ & itemName & """, an error occured..."
  Else
    response.write "Deleted the folder """ & itemName & """..."
End If


rs.delete

rs.close
set rs = Nothing

response.redirect("admin.asp")
%>

Den kan ikke finde stien til mappen med billerne.
Selve mappen ligger som en undermappe til 'billeder'
Jeg har prøvet således, men det virker desværre ikke
itemName = "billeder/" & rs("emne")

hvilken fejl får du ?

Path not found

/toons/deleteaddz.asp, line 16

nevermind tror jeg...

Fejlen er at der mangler en server.mappath ;-)
Har det med at glemme den...

<%
Set rs = Server.CreateObject("ADODB.RecordSet")

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/angelica.mdb")

rs.Open "annonce", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable

rs.find "id=" & request.querystring("id")

itemName = server.mappath("billeder/" & rs("emne"))
Set FSO = server.CreateObject("Scripting.FileSystemObject")

FSO.DeleteFolder itemName, true
If (err.Number <> 0 ) Then
  response.write "Unable to delete the folder """ & itemName & """, an error occured..."
  Else
    response.write "Deleted the folder """ & itemName & """..."
End If


rs.delete

rs.close
set rs = Nothing

response.redirect("admin.asp")
%>

Bedre :O)
Men nu får jeg fejlmelding...
Permission denied

Regner med det er fordi jeg prøver at slette en mappe med indhold.

Det burde true klare for dig...

Øjeblik..

Indholdet hedder forresten altid:
foto1.jpg
foto2.jpg
foto3.jpg
foto4.jpg
Er det muligt at slette dem først?

fandt et sted hvor de foreslog at man skulle skrive Force:=True i stedet...
Så prøv det her:<%
Set rs = Server.CreateObject("ADODB.RecordSet")

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/angelica.mdb")

rs.Open "annonce", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable

rs.find "id=" & request.querystring("id")

itemName = server.mappath("billeder/" & rs("emne"))
Set FSO = server.CreateObject("Scripting.FileSystemObject")

FSO.DeleteFolder itemName, Force:=True
If (err.Number <> 0 ) Then
  response.write "Unable to delete the folder """ & itemName & """, an error occured..."
  Else
    response.write "Deleted the folder """ & itemName & """..."
End If


rs.delete

rs.close
set rs = Nothing

response.redirect("admin.asp")
%>

Den kan ikke godtage : i Force: <--
Men hvis jeg fjerner den får jeg igen
Permission denied

FSO.DeleteFolder itemName, True

det var lige mig der lavede en fejl..
Dette burde virke, har du rettigheder til at slette mapper på din server ?
du skal have read, write og execute skulle jeg mene.

Der er givet alle rettigheder. Jeg prøver lige

<%
Set rs = Server.CreateObject("ADODB.RecordSet")

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/angelica.mdb")

rs.Open "annonce", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable

rs.find "id=" & request.querystring("id")

itemName = server.mappath("billeder/" & rs("emne"))
Set FSO = server.CreateObject("Scripting.FileSystemObject")

if FSO.FolderExists itemName then
  FSO.DeleteFolder itemName, True
End If


rs.delete

rs.close
set rs = Nothing

response.redirect("admin.asp")
%>

Ellers prøv denne..

Den første virker ikke, men den er vel også magen til det du postede
13/03-2004 11:31:08
Den nye melder...
if FSO.FolderExists itemName then
--------------------^

med pil under itemName

hvad er hele fejlen ?

Således ser hele deletesiden ud...
<!-- #include file="ADOVBS.inc" -->
<%

Set rs = Server.CreateObject("ADODB.RecordSet")

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/angelica.mdb")

rs.Open "annonce", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable

rs.find "id=" & request.querystring("id")

itemName = server.mappath("billeder/" & rs("emne"))
Set FSO = server.CreateObject("Scripting.FileSystemObject")

if FSO.FolderExists itemName then
  FSO.DeleteFolder itemName, True
End If


rs.delete

rs.close
set rs = Nothing

response.redirect("admin.asp")
%>

Fejlmeddelsen ...

Microsoft VBScript compilation error '800a03f9'

Expected 'Then'

/toons/deleteaddz.asp, line 15

if FSO.FolderExists itemName then
--------------------^

nå ja.. parenteser er en god ting ;-)

if FSO.FolderExists(itemName) then
  FSO.DeleteFolder itemName, True
End If

Jeg nænner næsten ikke at skrive:
Microsoft VBScript runtime error '800a0046'

Permission denied

/toons/deleteaddz.asp, line 16

så er det noget med skriverettigheder...

prøv at teste scriptet på en tom folder, så kan vi altid se om det er det der er problemet.

Det hjalp desværre ikke med en tom folder.
Og skriverettighederne skulle ikke være problemet, da der er åbnet op for alt og alle

det tror jeg nu alligevel det er...

Men ellers så prøv at slette true og prøv igen

Nope, desværre stadig det samme.
Ang. skriverettighederne ---> http://www.angelica.dk/screen.jpg
Regner med at det er korrekt

tja, men virker deleteFile..

det tester vi lige...
lav en tilfældig fil med fx. navn 123.txt

og så eksekver dette script..
itemName = server.mappath("billeder/123.txt")
Set FSO = server.CreateObject("Scripting.FileSystemObject")

if FSO.FileExists itemName then
  FSO.DeleteFile itemName
End If

hvis deleteFile virker, så skal vi lige teste noget andet...

så skal du prøve dette script i stedet.

<%
Set rs = Server.CreateObject("ADODB.RecordSet")

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/angelica.mdb")

rs.Open "annonce", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable

rs.find "id=" & request.querystring("id")

itemName = server.mappath("billeder/" & rs("emne"))
response.write itemName
response.end

Set FSO = server.CreateObject("Scripting.FileSystemObject")

if FSO.FolderExists itemName then
  FSO.DeleteFolder itemName, True
End If

rs.delete

rs.close
set rs = Nothing

response.redirect("admin.asp")
%>

Hmmm ... det giver det samme problem.
Mærkeligt at den ikke vil slette

du skal få din udbyder til at give brugeren read write og execute adgang...
Der er vidst forskel på at have det på ftp-serveren og på selve serveren.

Men hvad skriver ovenstående ?

Jeg har ingen problemer med at oprette, det burde vel være det samme?

Permission denied

/toons/testdelete.asp, line 5

var det resultatet af denne ?

<%
Set rs = Server.CreateObject("ADODB.RecordSet")

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/angelica.mdb")

rs.Open "annonce", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable

rs.find "id=" & request.querystring("id")

itemName = server.mappath("billeder/" & rs("emne"))
response.write itemName
response.end

Set FSO = server.CreateObject("Scripting.FileSystemObject")

if FSO.FolderExists itemName then
  FSO.DeleteFolder itemName, True
End If

rs.delete

rs.close
set rs = Nothing

response.redirect("admin.asp")
%>

Sorry.. nej

D:\Webhotel\angelica.dk\www\toons\billeder\test1

og det er som det skal være skulle man mene..

og du kunne ikke slette filer heller..

Jeg tror du skal kontakte din udbyder, og spørge hvordan det kan være, for ovenstående script skal slette alle mapper, men det har du ikke rettigheder til på serveren.

Lyder som det rigtige.
Ked af alt det besvær du måtte igennem.
Smid et svar, for at modtage velfortjente points.
Rigtig god Weekend, og tusinde tak for hjælpen

der er et svar her ;-)

Håber du får resten til at virke, ellers så sig til. Så kigger vi på det.

Tak