Web Development

<br />
<%<br />
dim fs,fo,file,fsource<br />
set fs=Server.CreateObject("Scripting.FileSystemObject")<br />
<br />
select case rbtn<br />
case "DATA"<br />
	fsource=server.MapPath("data/")<br />
case "PT"<br />
	fsource=server.MapPath("PT/")<br />
case "RPT"<br />
	fsource=server.MapPath("RPT/")<br />
case "JKI"<br />
	fsource=server.MapPath("JKI/")<br />
end select<br />
set fo=fs.GetFolder(fsource)<br />
for each file in fo.files<br />
if len(day(file.DateLastModified))<2 then<br />
	dd="0" & day(file.DateLastModified)<br />
else<br />
	dd= day(file.DateLastModified)<br />
end if<br />
if  Len(month(file.DateLastModified))<2 then<br />
	mm="0"& month(file.DateLastModified)<br />
else<br />
	mm=month(file.DateLastModified)<br />
end if<br />
yy=year(file.DateLastModified)<br />
d=dd & "/" & mm & "/" & yy<br />
d1=Request.QueryString("txtdate")<br />
<br />
if d=d1 then<br />
   file.Delete<br />
end if<br />
next<br />
set file=nothing<br />
set fo=nothing<br />
set fs=nothing<br />
%><br />
<br />