Datei aus einem Ordner löschen

[dw]

Danke erstma für eure Hilfe!!!

aber irgendwie versteh ich das noch nicht ganz, ich hab jetzt den code und so, nur es funktioniert immer noch nicht, passiert einfach nichts. was ist da los?

jetziger code:

if Request.QueryString("delete") <> "" then

<%
[VBScript]
filetodelete = Request.QueryString("BName")
const folderspec = "users"
Function ShowFolderList(folderspec,filetodelete)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 IN fc
      s = s & f1.Name

if s = (Request.QueryString("BName")) then       |
  const conSourcePath = "users"                    |
  strPhysSourcePath = Server.MapPath(conSourcePath) | Datei löschen?
  fso.DeleteFile strPhysSourcePath                  |
   end if                                           |

s = s & "<BR>"
   Next
   ShowFolderList = s
End Function

end if
%>

oder hab ich jetzt beim code etwas falsch gemacht?

MFG dw