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

VBScript - 当今天未创建文件时发送电子邮件

1 个答案: