3

目標: フォルダーを毎日チェックし、その日にファイルが保存されていないかどうかを報告する 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
4

1 に答える 1

0

完了したという考えに基づいて、今日のファイルが見つかったが、すべてのファイルを確認して今日のファイルが見つからないことを確認する必要がある場合、ロジックは次のようになります。

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
于 2012-09-19T20:32:51.437 に答える