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 |
|
