He hecho una pequeña modificación: he añadido un pequeño control de errores, por si nos topamos con un archivo de solo lectura o sin permisos para borrarlo, de esta forma, no se parará el script, sino que continuará con el siguiente archivo.
Código ASP:
Ver originalset FSO = Server.CreateObject("Scripting.FileSystemObject")
'definimos la ruta a la carpeta que queremos recorrer
set oCarpeta = FSO.GetFolder(Server.MapPath("../../../extranetweb/download"))
set colFicheros = oCarpeta.Files
'Recorremos la colección de ficheros (objetos File)
for each fichero in colFicheros
'capturamos la fecha de modificación
modificado = fichero.DateLastModified
modificado=FormatDateTime(modificado,2)
fecha_actual = FormatDateTime(date,2)
'sacamos la diferencia en días con la fecha actual
diferencia = datediff("d", modificado, fecha_actual)
if diferencia > 7 then 'si la diferencia es superior a 7, se elimina el archivo
On Error Resume Next ' catch errors
fichero.delete
If Err <> 0 Then ' error occurred
strErr = Err.Description & "<br>"
else
bSuccess = True
End If
end if
next