tireless

@echo off&setlocal enabledelayedexpansion
set "fpath=D:\Program Files\A"
for %%a in ("%fpath%") do set fname=%%~nxa
set n=1
set /p per=请输入每个文件夹的文件个数：
for %%a in ("%fpath%\*") do (
  set /a per-=1,1/per 2>nul || set /a n+=1,per=%per%
  if not exist "%fpath%\%fname%!n!" md "%fpath%\%fname%!n!"
  move "%%a" "%fpath%\%fname%!n!"
)
复制代码

[ 本帖最后由 tireless 于 2009-3-14 22:17 编辑 ]