7 svar · 298 visningar · startad av tomas21
Hej jag har tidigare idag skrivit ett inlägg angående att ladda upp filer på servern. Nu en anna fråga:
Hur tar man bort filer på servern. Det jag ska göra är att jag först laddar upp filerna till servern samt till databasen. Sen när man tex. trycker ta bort bild då ska den ta bort den från databasen samt från servern.
Hej,
Du får ta bort poster i databasen på sedvanligt sätt. Sedan använda dig av FSO för att ta bort själva filen. Du måste ha något som matchar filen samt databasen också. lämpligt är att döpa filerna efter nått unikt databas nummer som ID t.ex
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile("D:\"& uniktfilnamn &"")
file.Delete
Mvh
ok ska testa
Hejsan jag har testat med följande kod:
Set Obj = CreateObject("Scripting.FileSystemObject")
Obj.DeleteFile "..\bilder\" & Request.QueryString("namn") & " "
Jag får detta felmedelande:
Microsoft VBScript runtime error '800a0035'
File not found
/admin/administration.asp, line 748
Rad 748 är :
Obj.DeleteFile "..\bilder\" & Request.QueryString("namn") & " "
Kom igen snälla kan någon svara....
File not found!
Scriptet hittar inte filen!
Är sökvägen helt rätt?
Har du rätt namn på filen?
(Sen kan du ju iofs fimpa mellanslaget som du lägger till på slutet av filnamnet.)
En liten parentes bara. Jag tycker att det är lite vanskligt att använda sig av querystrings i ett "deletescript"
tomas21 skrev:
Kom igen snälla kan någon svara....
Lite mer än 10 minuter får du nog ge det.
Nåja.
FSO brukar vilja ha en fysisk sökväg, inte en relativ. Omvandla den relativa sökvägen till fysisk med Server.Mappath().
Obj.DeleteFile Server.Mappath("..\bilder\" & Request.QueryString("namn"))
Annars kan du ju alltid kolla om filen existerar innan du raderar den.
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath("../bilder/" & Request.QueryString("namn"))) Then
fso.DeleteFile(Server.MapPath("../bilder/" & Request.QueryString("namn")))
End If
Set fso = Nothing