[amel27]

Код:

On Error Resume Next
strDIR = "C:\dep"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDir = objFSO.GetFolder(strDIR)

If Err.Number Then
  WScript.Echo "Ошибка открытия каталога!"
  WScript.Quit(1)
End If

If DatePart("yyyy",Now)=DatePart("yyyy",objDIR.DateLastModified) And _
   DatePart("m",Now)   =DatePart("m",objDIR.DateLastModified)    And _
   DatePart("d",Now)   =DatePart("d",objDIR.DateLastModified)    Then

  WScript.Echo "Дата изменения каталога совпадает с текущей."
Else
  WScript.Echo "Дата изменения каталога отлична от текущей!"
End If