Отслеживание в папке появление файлов mht

Обсуждение программ nnCron и nnCron LITE

Отслеживание в папке появление файлов mht

Postby Alex25 » Wed, 09 Nov 2011, 12:28

Помогите с задачей :prayer: . Нужен скрипт для слежения за папкой. При появлении в папке файла с расширением mht, создать в отслеживаемой папке подкаталог с именем появившегося файла и переместить этот файл в созданный подкаталог. Например, при появлении в папке c:\tmp\ файла Пример.mht - создать папку c:\tmp\Пример\ и переместить туда Пример.mht.
Alex25
 
Posts: 2
Joined: Wed, 09 Nov 2011, 12:07

Re: Отслеживание в папке появление файлов mht

Postby makrus » Wed, 09 Nov 2011, 15:00

Alex25
Попробуй вот этот:
Code: Select all
#( CLASSIC-TASK-#-Test2Dir
\ NoActive
SingleInstance
: Mht_mask ( -- a u ) S" С:\Tmp\*.mht" ; \ указываем полный путь к папке с маской файлов
: FILENAME2NAME&EXT { a u \ dotpos -- a1 u1 a2 u2 }
    u 0= IF a u a u EXIT THEN
    -1 TO dotpos
    a a u CHARS + 1 CHARS -
    ?DO
        I C@ [CHAR] . =
            IF I TO dotpos LEAVE THEN
        I C@ DUP [CHAR] / = SWAP [CHAR] \ = OR
            IF LEAVE THEN
    -1 CHARS +LOOP
    dotpos -1 =
    IF a u S" "
    ELSE
       a dotpos a - 1 CHARS /
       dotpos CHAR+ OVER u SWAP - 1-
    THEN
;
WatchFile: "%Mht_mask%"
Action:
  Mht_mask FOR-FILES
    FOUND-FILENAME FILENAME2NAME&EXT 2DROP
    FOUND-FULLPATH ONLYDIR S" /" S+ 2SWAP S+ 2DUP DIR-CREATE
    FOUND-FULLPATH 2SWAP FMOVE
  ;FOR-FILES
)#
Единственное тут никак не обрабатывается ситуация когда будут появляться дубликаты файлов.
все познается в сравнении
makrus
 
Posts: 336
Joined: Mon, 12 Jul 2004, 14:46
Location: Волгоград

Re: Отслеживание в папке появление файлов mht

Postby Alex25 » Mon, 14 Nov 2011, 02:32

Спасибо. Буду пробовать
Alex25
 
Posts: 2
Joined: Wed, 09 Nov 2011, 12:07


Return to nnCron forum (Russian)

Who is online

Users browsing this forum: No registered users and 2 guests

cron