批处理整理文件夹，将当前目录下10000多个文件，按每100个文件新建一个文件夹

Question

有一个大神写了一个，不过有点小问题
@echo off&SetLocal EnableDelayedExpansion
Set /a m=1,n=0
For /r %%i in (*.*) do (
md !m! 2>nul
Set /a n+=1
Set /a y=!n!%%100
move /y "%%i" "!m!"
if !y!==0 Set /a m+=1
)
pause

出现的问题 1，新建出来的文件夹前面一半数量文件夹是空的，另外，bat文件也被移走了
能否稍微修改一下，解决一上述两个问题，谢谢

Answer 1

@echo off&setlocal enabledelayedexpansion
set m=1
(for %%a in (*) do (
set/a "n+=1,1/(100*m-n+1)"||(set/am+=1)
md !m!&move "%%a" .\!m!\
))2>nul

Answer 2

就把第3行改一下：
for /f "delims=" %%i in ('dir/b/a-d')do if not "%%i"=="%~nx0" (本回答被提问者和网友采纳