Lista file

[Mems]

<%
set fso = server.createObject("scripting.fileSystemObject")
	set folder = fso.getFolder(server.mapPath("cartella"))
		set files = folder.files
			for each file in files
			if inStr(file.name,"_") > 0 then
			temp = split(file.name,"_")
				if not isNumeric(temp(0)) then
				response.write file.name & "
"
				end if
			else
			response.write file.name & "
"
			end if 
			next
		set files = nothing
	set folder = nothing
set fso = nothing
%>

Al posto dei due response.write devi nettere fso.deleteFile(file) dopo avere verificato la proprietà data di creazione.