et FSo = CreateObject("Scripting.FileSystemObject")
set folder = FSO.getFolder ("C:\teste\")
for each file in folder.files
if (dateDiff("d", file.datecreated, now) >1) then
File.delete
end if
next
Queria incrementar para ele gerar um arquivo de log .txt contendo o horário que o script foi executado e os arquivos que ele excluiu
Gerar log
em VBA
Postado · Editado por rafael.brbs
Utilizo esse script para apagar arquivos
et FSo = CreateObject("Scripting.FileSystemObject")
set folder = FSO.getFolder ("C:\teste\")
for each file in folder.files
if (dateDiff("d", file.datecreated, now) >1) then
File.delete
end if
next
Queria incrementar para ele gerar um arquivo de log .txt contendo o horário que o script foi executado e os arquivos que ele excluiu
Alguém pode ajudar?