[Anonymоus]

Код:

SetLocal EnableDelayedExpansion
For /F %%C In ('Dir "C:\TEST1\" /A-D /B') Do (Set /A i+=1)
If %i% GTR 400 (
Set i=0
For /F "delims=" %%F In ('Dir "C:\TEST1\" /A-D /B /O-D') Do (
Move "C:\TEST1\%%F" "C:\TEST2\"
Set /A i+=1
If "!i!"=="10" GoTo :EOF
)
)