[решено] Проверка даты изменения папки.

[ufunf]

Привет всем!

Вопрос в следующем: Есть папка, к примеру c:\dep, в понедельник в нее копируется много файлов, соответственно меняется дата изменения папки. Очень нужен скрипт, который выполняет следующее: запускается - проверяет есть ли папка C:\dep с текущей датой - если дата текущая, вывести сообщение пользователю; если не текущая тоже вывести сообщение.

Заранее всем спасибо!

[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

[ufunf]

Большое спасибо, вопрос решен!