VBScript - 今天未創建文件時的電子郵件

Question

目標：運行每天檢查文件夾的VBScript，並報告當天是否沒有文件保存。忽略前幾天存在的文件。

我需要檢查當天是否沒有創建文件併發送電子郵件。如果當天創建了一個文件，那麼我希望腳本什麼都不做 - 不通知。我發現這個代碼，但它的對面，發送電子郵件，如果該文件存在，並且不執行任何操作，如果它丟失：

option explicit 
dim myMail 
dim fileSystem, folder, file 
dim path 
path = "C:\Temp" 
Set fileSystem = CreateObject("Scripting.FileSystemObject") 
Dim myDate 
myDate = dateadd("d", -1, FormatDateTime(Now, 2)) 
Set folder = fileSystem.GetFolder(path) 
for each file in folder.Files 
    if file.DateCreated > myDate then 
    'WScript.Echo file.Name & " last modified at " & file.DateCreated 
     SendEmail 
    'WScript.Echo "this should have sent an email." 
    end if 
next 

Function SendEmail() 
    'this works 
End Function 

Answer 1

根據您都做了，如果今天的文件中找到的想法，但必須檢查所有文件可以肯定，即今天的文件丟失，邏輯將是：

found = False 
For all files in folder 
    If today's file found 
     found = True 
     Exit For 
    End If 
Next 
If Not found Then 
    Send Email 
End If