På denna kod:

Filnamn = Request.QueryString("Fil")
Response.Write Filnamn
filename = Server.MapPath(" & Filnamn & ")
set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile(filename)

Får bara felmeddelandet File not found

<code>
Kill sokvag ' sokvag är en string med sökvägen till filen/filerna.
'Du kan använda * och ? för att ta bort flera filer, ex: "*.tmp"
</code>
/Ivar

Skriv ut filename. Du kommer antagligen få ett värde: "c:\Inetpub\wwwroot\minmapp\ & Filnamn & "<br>
<br>
Du ska skipa citat tecknen om det är en variabel som parameter:
<code>
Filnamn = Request.QueryString("Fil")
Response.Write Filnamn
filename = Server.MapPath(Filnamn)
set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile(filename)

</code>
Mycket farlig kod du skriver. En hacker skulle kunna ta bort din websida eller vitala filer i systemet.<br>
<br>
Om användaren bara ska rätt att ta bor filer från en speciel katalog. Kan du istället skriva:
<code>
Dim fso
Dim File
Dim folder

Dim Found
Dim FileName

FileName = Request.QueryString("Fil")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("c:\Min Mapp")
For Each File In folder.Files
If File.Name = FileName Then
File.Delete True
Found = True
Exit For
End If
Next

If Found Then
Response.Write "Filen """ & FileName & """ har tagits bort!"
Else
Response.Write "Filen """ & FileName & """ ej funnen!"
End If
</code>

.

Glöm inte ntfs rättigheterna (gruppen/enskild användare/enskild fil) så att man inte kan ta sig vidare ifrån den mappen och in i nätverket om man nu har det som mål här i livet...