Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] Проверка даты изменения папки. (http://forum.oszone.net/showthread.php?t=164861)

ufunf 27-01-2010 15:26 1331436
Проверка даты изменения папки.
 
Привет всем!

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

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

amel27 28-01-2010 04:50 1331946
Код:
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 28-01-2010 07:44 1331982
Большое спасибо, вопрос решен!


Время: 23:32.

Время: 23:32.
© OSzone.net 2001-