---

@echo off
chcp 65001 >nul
setlocal enabledelayedexpansion

for /d %%d in (*) do (
    if not "%%d"=="Папка1" (
    if not "%%d"=="Папка2" (
    if not "%%d"=="Папка3" (
    if not "%%d"=="Папка4" (
        for %%f in ("%%d\*.txt") do (
            if exist "%%f" (
                :: Читаем содержимое файла
                set "content="
                set /p content=<"%%f"
                call :strlen "!content!" len
                
                if !len! LSS 5 (
                    move "%%f" "Папка1\" >nul
                ) else if !len! LEQ 7 (
                    move "%%f" "Папка2\" >nul
                ) else (
                    move "%%f" "Папка3\" >nul
                )
            )
        )
    ))))
)
exit /b