[Resolvido] Deletar arquivo temp, por data

[xanburzum 169]

Deletar arquivo temp, por data

 

<%
Function DeletaTemporarios(data)
Set FSO = server.createObject("Scripting.FileSystemObject")
Set Pasta = FSO.GetFolder(Server.MapPath("/pastadosanexos/"))
Set Arquivos = Pasta.Files
For Each Arquivo in Arquivos
    Set FILE = FSO.GetFile(Arquivo)
    Response.Write FILE.DateLastModified
    Ddata = DateDiff("d", FILE.DateLastModified, data)
    If Ddata > 10 Then
       FSO.DeleteFile(arquivo)
    End If
Next
End Function
%>

Para executar a verificação e deleção dos arquivos basta colocar

 

DeletaTemporarios(Date())