Exclusão de arquivo

[xanburzum 169]

Exclusão de arquivo de forma inteligente, verificando o dia da semana a ser executado

<%

dim pasta, deletarsemana

deletardomingo = 1
deletarsegunda = 2
deletarterca = 3
deletarquinta = 5
deletarsabado = 7

TEMPO_DE_VIDA = 15

set fso = server.CreateObject("Scripting.FileSystemObject")
set fsoP = fso.getFolder(Server.MapPath("arquivos/"))

for each arq in fsoP.files
   Response.Write(arq.name&" - criado em "&arq.dateCreated&".<br />")
   if weekday(deletardomingo) or weekday(deletarsegunda) or weekday(deletarterca) or weekday(deletarquinta) or weekday(deletarsabado) AND weekday(arq.dateCreated) >= TEMPO_DE_VIDA then
      Response.Write(arq.name&" deletado.<br/>")
      arq.Delete
   else
      Response.Write("nenhum arquivo nesta semana para deletar")
   end if
next

set arq = nothing
set fsoP = nothing
set fso = nothing

%>

[Patrique 0]

Function criado pelo usuário gamefe

 

Tópico origem: http://forum.imasters.com.br/index.php?/topic/415947-excluindo-arquivos-de-forma-inteligente/