03. januar 2003 - 08:50Der er
6 kommentarer og 2 løsninger
Sletning af fil
Her er den del af mit script, som sletter min post i databasen, men jeg vil også gerne have det til at slette filen på serveren.
Filen skal kun slettes, hvis den findes - altså hvis der ligger data i strengen der bliver sendt der hedder "navn". Men den ignorerer tilsyneladende den betingelse jeg har sat op, for jeg får fejlbeskeden: "file not found".
Hvad går der galt her?
ElseIf Request.QueryString("slet") = "2" Then Set rs = Server.CreateObject("ADODB.Recordset") Query = "SELECT * FROM produkter WHERE ID=" & Request.QueryString("ID") rs.Open Query, Connect, 1, 2
Dim billednavn billednavn = Request.QueryString("navn")
Dim fso If not isnull(billednavn) OR billednavn<>"" Then Set fso = Server.CreateObject("Scripting.FileSystemObject") fso.DeleteFile (Server.Mappath("./upload/"& billednavn)) End If
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Kan du ikke bare bruge: If fso.FileExists(Server.Mappath("./upload/"& billednavn")) Then fso.DeleteFile(Server.Mappath("./upload/"& billednavn")) End If
If fso.FileExists(Server.Mappath("./upload/"& billednavn")) Then fso.DeleteFile(Server.Mappath("./upload/"& billednavn"))
giver denne fejlmeddelelse:
If fso.FileExists(Server.Mappath("./upload/"& billednavn")) Then fso.DeleteFile(Server.Mappath("./upload/"& billednavn")) --------------------------------------------------------^
Jeg har prøvet at fjerne " efter billednavn, men så kommer der en anden meddelelse:
Dim fso If fso.FileExists(Server.Mappath("./upload/"& billednavn & ")) Then fso.DeleteFile(Server.Mappath("./upload/"& billednavn & ")) End If
Får jeg denne fejl:
Microsoft VBScript compilation error '800a0409' Unterminated string constant /upload_skabelon/produkter/slet.asp, line 52 If fso.FileExists(Server.Mappath("./upload/"& billednavn & ")) Then -------------------------------------------------------------------^
Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.Mappath("./upload/"& billednavn)) Then fso.DeleteFile (Server.Mappath("./upload/"& billednavn)) End If
Den kører igennem uden at give noget fejlmedd. men filen bliver ikke slettet.
Jeg fant selv fejlen, - sorry, det var en forkert referance til strengen. Men I kan da få lidt for hjælpen alligevel :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
