![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Проверка даты изменения папки. |
|
VBS/WSH/JS - [решено] Проверка даты изменения папки.
|
Новый участник Сообщения: 19 |
Привет всем!
Вопрос в следующем: Есть папка, к примеру c:\dep, в понедельник в нее копируется много файлов, соответственно меняется дата изменения папки. Очень нужен скрипт, который выполняет следующее: запускается - проверяет есть ли папка C:\dep с текущей датой - если дата текущая, вывести сообщение пользователю; если не текущая тоже вывести сообщение. Заранее всем спасибо! |
|
Отправлено: 15:26, 27-01-2010 |
Googler Сообщения: 3665
|
Профиль | Отправить PM | Цитировать 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 |
Отправлено: 04:50, 28-01-2010 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 19
|
Профиль | Отправить PM | Цитировать Большое спасибо, вопрос решен!
|
Отправлено: 07:44, 28-01-2010 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - Как удалить профильные папки из Личной Папки без последствий? | Котяр | Microsoft Windows 7 | 0 | 28-11-2009 20:36 | |
[решено] Запрет изменения даты | laro4ka | Microsoft Windows 95/98/Me (архив) | 3 | 05-12-2008 14:27 | |
Доступ - [решено] Запрет изменения даты | laro4ka | Microsoft Windows 2000/XP | 1 | 04-12-2008 10:40 | |
CMD/BAT - Проверка даты стандартными средствами bat файла | chieffka | Скриптовые языки администрирования Windows | 3 | 29-02-2008 11:43 | |
C/C++ - Проверка даты и времени. | Jonik-Mnimonik | Программирование и базы данных | 3 | 20-11-2007 16:15 |
|