king_stiven
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Автор igor_andreev Пример, нужно показать сообщение для всех файлов в каталоге, у которых дата создания старее, чем 14 дней назад. код1 Код: @echo off echo WScript.Quit (DateDiff("d", CreateObject("Scripting.FileSystemObject").GetFile(WScript.Arguments.Item(0)).DateCreated, Now))>"%temp%\timediff.vbs" for %%a in (*.*) do ( set "fgh=%%a" call :compare_crdate ) del "%temp%\timediff.vbs" goto :eof :compare_crdate cscript //nologo "%temp%\timediff.vbs" "%fgh%" if %errorlevel% gtr 14 echo %fgh% created more than 14 days ago | Страничка обсуждения. http://forum.ru-board.com/topic.cgi?forum=62&topic=13556&start=320 Пример, нужно показать сообщение для всех каталогов, у которых дата создания старее, чем 14 дней назад. код2 Код: @echo off echo WScript.Quit (DateDiff("d", CreateObject("Scripting.FileSystemObject").GetFolder(WScript.Arguments.Item(0)).DateCreated, Now))>"%temp%\timediff.vbs" for /d %%a in (*) do ( set "fgh=%%a" call :compare_crdate ) del "%temp%\timediff.vbs" goto :eof :compare_crdate cscript //nologo "%temp%\timediff.vbs" "%fgh%" if %errorlevel% gtr 14 echo "%fgh%" created more than 14 days ago | Пример, нужно показать сообщение для всех файлов в каталоге, которые были созданы более 20 минут назад код3 Код: @echo off echo WScript.Quit (DateDiff("n", CreateObject("Scripting.FileSystemObject").GetFile(WScript.Arguments.Item(0)).DateCreated, Now))>"%temp%\timediff.vbs" for %%a in (*.*) do ( set "fgh=%%a" call :compare_crdate ) del "%temp%\timediff.vbs" goto :eof :compare_crdate cscript //nologo "%temp%\timediff.vbs" "%fgh%" if %errorlevel% gtr 14 echo %fgh% created 20 min | Страничка обсуждения. http://forum.ru-board.com/topic.cgi?forum=62&topic=13556&start=320 Пример, нужно показать сообщение для всех каталогов, которые были созданы более 20 минут назад. В коде2 замените строку echo WScript.Quit (DateDiff("d", CreateObject("Scripting.FileSystemObject").GetFolder(WScript.Arguments.Item(0)).DateCreated, Now))>"%temp%\timediff.vbs" на echo WScript.Quit (DateDiff("n", CreateObject("Scripting.FileSystemObject").GetFolder(WScript.Arguments.Item(0)).DateCreated, Now))>"%temp%\timediff.vbs" | Всего записей: 2229 | Зарегистр. 17-07-2006 | Отправлено: 09:32 22-07-2009 | Исправлено: king_stiven, 12:30 04-12-2009 |
|