Удалить файлы, которые не обновляются

Кто-нибудь знает, можно ли удалить документ, который не обновляется к определенному времени. Я пытаюсь сделать так, чтобы пустой лист проверки заполнялся каждую ночь в 00:01, и если никто не вводит информацию о проверке за этот день, форма за этот день будет удалена, чтобы у меня не было излишка сохраненных пустых форм проверки.


vba delete-file
person David Van der Vieren    schedule 11.12.2012    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Да, это возможно. вот базовый код. Вам нужно изменить оператор if, чтобы он отражал правильный период времени.

Dim oFileObj
Set oFileObj = Wscript.CreateObject("WScript.FileSystemObject")
oFileObj.GetFile("File.Name")  
if oFileObj.DateLastModified < NOW then
    oFileObj.DeleteFile("File.Name")
end if
Set oFileObj = Nothing
person Sorceri    schedule 11.12.2012
comment
просто мысль: что, если кто-то введет информацию о проверке, а затем удалит ее? он по-прежнему выдает пустую форму проверки... - person ; 12.12.2012