Login
Latest postings for ASP/ VbScript.
Daily Code Email
|
|
| |
|
|
|
Submitted on: 7/19/2001 3:37:10 AM
By: Jason Buck
Level: Beginner
User Rating:
By 5 Users
Compatibility:ASP (Active Server Pages)
Users have accessed this code 18814 times.
| 
(About the author) |
| | | This ASP page is a maintenance tool of sorts. It first lists all of the files in the directory.
The links when pressed pass the file name back to the same page which calls a delete function that delete the file which was just clicked on.
| | | |
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
|
'**************************************
' for :deletefiles
'**************************************
This code was written by Jason Buck For free distribution. | code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
|
'**************************************
' Name: deletefiles
' Description:This ASP page is a mainten
' ance tool of sorts. It first lists all o
' f the files in the directory.
The links when pressed pass the file name back To the same page which calls a delete function that delete the file which was just clicked on.
' By: Jason Buck
'
' Inputs:passes a querystring delete=Yes
' to call the delete function and passes a
' querystring FN= the filename to be delet
' ed.
'
' Returns:List of all files in the direc
' tory minus the deleted file.
'
' Assumes:This code uses the Filesystemo
' bject, passes variables via a querystrin
' g, and use a for each loop.
Again, make sure you want To delete the file before clicking.
'
' Side Effects:Make sure you are clickin
' g on the right file, because once you cl
' ick on it, it is gone.
'
'This code is copyrighted and has ' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=6787&lngWId=4 'for details. '**************************************
<HTML><HEAD>
<TITLE>delte a file</TITLE>
</HEAD><BODY>
<CENTER><H2>WARNING</H2></CENTER>
This code is very dangerous. When loaded, clicking On any file on this page
will cause that file To be deleted. I have Not put In a confirm delete page.
I recommend doing so if you are ever going To use this delete function in a production
environment.
<P>For help or comments, feel free To contact me at <A href="mailto:buck_jason@hotmail.com">Hotmail</A>
or visit my temporary site at <A href="http://www22.brinkster.com/jbuck">www22.brinkster.com/jbuck</A>
<P>
Click On any file below To delete it. I recommend adding a few junk files For demostration
purposes.<P>
<%
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 <B>" & strFN & "</B><BR>"
Set f1 = fso.GetFile(Server.MapPath(strFN))
f1.Delete
Response.Write "All done!<BR>"
End Sub
' the dot . below represents the current
' directory that this file is in.
' this file will only delete in its curr
' ent directory. to delete in
' directories, you would have to add tha
' t to the tobdel portion which is the FN
' that is being passed.
dirtowalk = "."
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='deletefiles.asp?delete=Yes&FN=" & tobdel.name & "'>"
response.write tobdel.name & "</A></BR>"
Next
%>
</BODY></HTML>
| | |
|
Other 2 submission(s) by this author
| | | |
Report Bad Submission | | | | | Your Vote! | |
See Voting Log | | | | Other User Comments | 
7/7/2003 2:29:50 AM:
Hi,
I tried to delete the files on a remote machine using this code, but getting an error file not found. Please help me.
Thanks in advance
Venkat
(If this comment was disrespectful, please report it.)
|
8/3/2003 7:24:04 PM:
Very useful code, easily adapted for deleting image after deleting database record.
(If this comment was disrespectful, please report it.)
| | |
Add Your Feedback! | Note:Not only will your feedback be posted, but an email will be sent to the code's author from the email account you registered on the site, so you can correspond directly.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
To post feedback, first please login.
| |
|
