Tjena!

Försöker radera en fil med den kodsnutt som finns här på pellesoft under tips & trix.
Problemet är att jag hela tiden får fellmeddelandet "Det går inte att hitta filen". Har testat att skriva ut hela sökvägen och den stämmer överens med verkligheten. Är det någe fel på koden som ni kan se?


<code>
Dim strFil

strFil = Request.Querystring("filename")


Path = Server.MapPath("mappen")

set fso = Server.Createobject("Scripting.FileSystemObject")

Filnamn = strFil

fso.DeleteFile(Path & "\" & Filnamn)


set fso = nothing
</code>



/Andreas

Kontrollera att strFil innehåller ett värde. Desutom är din kod mycket farlig eftersom man kan skicka ett filnamn som är. T.Ex. ..\..\..\User.mdb Vilket kan sabotera din sajt. Begränsa deleten till kataloen med:


<code>
Dim Path
Dim FileName
Dim fso As FileSystemObject
Dim File As File
Dim Folder As Folder

Path = Server.MapPath("mappen")
FileName = Request.Querystring("filename")

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = fso.GetFolder(Path)
For Each File In Folder.Files
If File.Name = FileName Then
Exit For
End If
Next
If File Is Nothing Then
Response.Write "File Not Found!"
Else
File.Delete True
Response.Write "File deleted!"
End If

Set fso = Nothing
</code>
Vet inte om det löser ditt andra problem.