Excluindo arquivos de forma inteligente

Pessoal, estou utilizando uma rotina encontrada no site do iMasters (http://imasters.com.br/artigo/9996/excluindo_arquivos_de_forma_inteligente).

Alterei algumas coisas, mas está praticamente idêntico.

<%
´Constante que determina o "tempo de vida" dos arquivos
const TEMPO_DE_VIDA = 7

´Constante que determina a unidade do "tempo de vida"
´yyyy - Year´
´q - Quarter
´m - Month
´y - Day of year
´d - Day
´w - Weekday
´ww - Week of year
´h - Hour
´n - Minute
´s - Second
const TEMPO_DE_VIDA_UN = "d"

´variável para
dim pasta
pasta = Server.MapPath("./arquivos/")

´Declara o File System Object
set fso = server.CreateObject("Scripting.FileSystemObject")

´GetFolder retorna a pasta passada por parâmetro
set fsoP = fso.getFolder(pasta)

´fsoP.files contem todos os arquivos da pasta
for each arq in fsoP.files
´Escreve na tela o nome do arquivo e sua data de criação.
Response.Write(arq.name&" - criado em "&arq.dateCreated&".<br />")

´Caso o "tempo de vida" do arquivo tenha passado o tempo permitido, o arquivo é deletado
if DateDiff(TEMPO_DE_VIDA_UN,arq.dateCreated,now) > TEMPO_DE_VIDA then
´Escreve na tela o nome do arquivo deletado
Response.Write(arq.name&" deletado.<br/>")

´Deleta o arquivo
arq.Delete
end if
next

´Libera variáveis da memória
set pasta = nothing
set arq = nothing
set fsoP = nothing
set fso = nothing
%>

Acontece que esta rotina deleta todos os arquivos com mais de 7 dias. Eu queria saber como fazer para ela deletar todos os arquivos criados domingo à sexta-feira, mas não deletar os criados aos sábados, ou seja, deletaria todos os arquivos com mais de 7 dias desde que o arquivo não tenha sido criado aos sábados.

Como fazer?

Valeu!