Delete all Files within a Directory Function
Code:
Highlight
<% strDirSource = server.mappath("./") & "\whatever\" deleteFiles strDirSource %> <% function deleteFiles(strDirSource) dim objFolder set fso = CreateObject("Scripting.FileSystemObject") set objFolder = fso.GetFolder(strDirSource) For Each file In objFolder.Files Response.Write "<b>" & (file.name) & "</b> has been deleted<br>" fso.deleteFile(file) Next set fso = nothing end function %>