Datacheck Solutions :: ASP

Script Snippets
Back

Delete Files

<%
Dim name

name = Request.Cookies ("name")
%>
<head>
 <TITLE>delte a file</TITLE>
 </head>

<HTML><BODY>
 <CENTER><H2>WARNING</H2>Deleted files are not recoverable.  Please 
 be sure you wish to delete before clicking on a file name.</CENTER>
 
 Click On any file below To delete it. 
 <%
 strdelete = request.querystring("delete")
 strFN = request.querystring("FN")
 if strdelete = "Yes" Then
 call functionDF()
 End if
 Sub functionDF()
 Dim fso, f1
 Set fso = CreateObject("Scripting.FileSystemObject")
 Response.Write "Deleting file " & strFN & " "
 Set f1 = fso.GetFile(Server.MapPath(strFN))
 f1.Delete
 Response.Write "All done! "
 End Sub
 ' the dot . below represents the current directory that this file is in.
 ' this file will only delete in its current directory. to delete in
 ' directories, you would have to add that to the tobdel portion which is the FN
 ' that is being passed.
dirtowalk = Request.Cookies("name")

Set fs = CreateObject("Scripting.FileSystemObject")
 Set f = fs.GetFolder(server.mappath(dirtowalk))
 Set fc = f.Files
 For Each tobdel In fc
 response.write "<A href='delete.asp?delete=Yes&FN=" & dirtowalk & "/" & tobdel.name & "'>"
 response.write tobdel.name & "</A>"
 Next
 %>
 </BODY></HTML>