[gora]

Код:

@echo off 
SetLocal enabledelayedexpansion
:: исходная папка
Set folder=%~1
:: папка получатель
Set out=%~2

For /R "%folder%" %%a In (*.*) Do (
	Set name=#%%~na
	Call :_cntchr "!name!" ocnt
	For /L %%i In (0,1,9) Do Set name=!name:%%i=!
	Call :_cntchr "!name!" tcnt
	Set /A delta=ocnt-tcnt
	If !delta! GTR 3 Echo %%a& Move "%%a" "%out%\%%~nxa"
)
pause

:_cntchr
Set %2=0
Set tn=%~1
:_loop
If Not Defined tn GoTo :EOF
Set /A %2+=1
Set tn=!tn:~1!
GoTo :_loop