업데이트되지 않은 파일 삭제

Question

특정 시간까지 업데이트되지 않은 문서를 삭제할 수 있는지 알 수 있습니까? 매일 밤 12시 1 분에 빈 검열표를 채우려 고합니다. 아무도 그날 검사 정보를 입력하지 않으면 해당 날의 양식이 삭제되어 잉여 검사 양식이 절약되지 않습니다.

Answer 1

예 가능합니다. 여기에 기본 코드가 있습니다. 올바른 기간을 반영하기 위해 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