刪除未更新的文件

Question

是否有人知道是否可以刪除一段時間未更新的文檔。我試圖在上午12點01分做一張空白檢查表，每天晚上如果沒有人輸入檢查信息，當天的表格將被刪除，因此我沒有剩餘空白檢查表格。

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