title: VBscript to confirm list of files exist and have been modified same day
body: <p>I am trying to create a script that will scan a directory for a list of specific file names and will then check whether or not the DateLastModified is newer than prior day.</p>
  
  <p>If any of the files do not exist or do exist but are not 'fresh' then I would like a summary window to pop up at the end listing the file names that did not meet the criteria.</p>
  
  <p>As an example we can say the path is C:\Testing\
  and the Files I want to scan for are File1.txt, File2.txt and File3.txt<br><br>
  <b>Note:</b> Although these files all have the same extension I do not want to scan for them that way. I want to specifically identify the files in my script since there are other txt files located in the directory.</p>
  
  <p><b>Update:</b>Here is what I was able to create as far as handling one file at a time. Any help you can offer will be greatly appreciated.</p>
  
  <pre><code>Option Explicit
  
  Dim FSO
  Set FSO = CreateObject("Scripting.FileSystemObject")
  
  Dim InputFile1
  InputFile1 = ("C:\Testing\File1.txt")
  
  Dim InputFile2
  InputFile2 = ("C:\Testing\File2.txt")
  
  Dim InputFile3
  InputFile3 = ("C:\Testing\File3.txt")
  
  Dim CurrentDate, OldDate
  
  '* Default Date format is MM/DD/YYYY
  CurrentDate = Date()
  OldDate = Date() - 1
  
  WScript.Echo ("The Current Date on the system is set to " &amp; CurrentDate) &amp; VbCrLf &amp; ("Checking if the file is newer than " &amp; OldDate)
  
  If FSO.FileExists(InputFile1) Then
          If CDATE (FSO.GetFile(InputFile1).DateLastModified) &gt; OldDate Then
          WScript.Echo ("All good!")
      Else
          WScript.Echo ("File is not current.")
      End If
  
  Else
      WScript.Echo ("File does not exist.")
      Wscript.Quit
      End If
  </code></pre>