<% Option Explicit

' Written by Daryl Maunder Midnight Oil Computing Pty Ltd

Dim fso
dim MyFolder

response.write Request.Querystring("Filename")

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFolder = fso.Getfolder(Application("ArchiveDir"))

MyFolder.Delete (true)
fso.CreateFolder(Application("ArchiveDir"))

set myFolder=nothing
set fso=nothing

Response.Redirect "default.asp"

%>