[DJ makrus]

zhekabest

Подскажите код скрипта, ...

Попробуй вот эту задачку, не забудь подкорректировать пути под себя:

#( FolderCleaner
\ задаем файлы исключений
: my_except S" c:\Temp\Test\except.txt" ;
: my_except1 S" c:\Temp\Test\1\except1.txt" ;
: my_except2 S" c:\Temp\Test\2\22\except2.txt" ;
: my_except3 S" c:\Temp\Test\3\33\333\except3.txt" ;
: is_except? ( a u flag a1 u1 -- a u ? ) \ au - текущий проверяемый файл, a1u1 - текущее исключение, flaf - результат проверки предыдущего файла исключения
\  "?" - TRUE - на данный момент текущий проверяемый файл не совпал ни с одним исключением
  ROT >R 2SWAP 2DUP 2>R 2SWAP
  IS-DIR? IF DROP OVER THEN
  COMPARE 0= 2R> ROT R> OR
;
Action:
  RECURSIVE
  FOR-FILES: "c:\Temp\Test\*.*" \ здесь в кавычках указываем путь к очищаемой папке и маску для файлов
    FOUND-FULLPATH 0
    \ начинаем проверять попадает ли текущий файл в одно из исключений,
    \ если файл один, то здесь должна быть одна подобная строка,
    \ лишние удалить\закомментировать
    my_except is_except?
    my_except1 is_except?
    my_except2 is_except?
    my_except3 is_except?
    IF
      2DROP
    ELSE
      IS-DIR? IF DIR-DELETE ELSE FDELETE THEN
    THEN
  ;FOR-FILES
)#