DJ makrus
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
<%
USER-VALUE WTime_l
USER-VALUE WTime_h
: FILE-OLDWR-MOVE ( a1 u1 a2 u2 -- ) \ перемещаем "старые по записи" фaйлы
FILESONLY
FOR-FILES
WTime_l WTime_h \ указываем "возраст файла по записи" который уже подлежит перемещению, по умолчанию = 10 минутам
FT-CUR FOUND-FULLPATH FILE-WTIME FT- \ подсчитываем сколько прошло с момента последней записи в файл
D< \ сравниваем "возраст файла по записи" с "номинальным" значением
IF 2DUP FOUND-FULLPATH 2SWAP FMOVE THEN
;FOR-FILES
2DROP
;
%>
#( NonWriteFileMove
NoActive
SingleInstance
AsLoggedUser
Action:
\ следующей строчкой я получаю значения в логе nnCron'а которые потом заношу в переменные "WTime_l" и "WTime_h", надо использовать
\ для получения нужных вам значений в формате "FILETIME", если выставленные по умолчанию 10 минут вас не устраивают
\ 2008 10 27 0 15 0 YMDHMS>FT 2008 10 27 0 5 0 YMDHMS>FT FT- 2DUP N>S CRON-LOG N>S CRON-LOG FT>MIN N>S CRON-LOG
1705032704 TO WTime_l
1 TO WTime_h
S" c:\Target\" \ указали приемный каталог
S" c:\Source\*" \ указали исходный каталог и сразу задали маску файлов подлежащих перемещению
FILE-OLDWR-MOVE
)# |
