@echo off
::这样同名文件移动到同一目录下不就重名了
setlocal enableDelayedExpansion
for /f "delims=" %%i in ('dir/s/b/a-d^|findstr "2008"') do (
　:addnum
　set/a "%%~ni+=1"
　if not exist "%%~ni\%%~ni!%%~ni!%%~xi" (
　　move "%%i" "%%~ni\%%~ni!%%~ni!%%~xi"
　) else (goto :addnum)
)
pause>nul
复制代码

@echo off
for /f "delims=" %%i in ('dir/b/ad^|findstr "^[0-9]*[0-9]$"') do (
　 for /f "delims=" %%a in ('dir/b "%%i\*.bmp"') do (
      if not exist "%%i\%%~na\" md "%%i\%%~na"
      move "%%i\%%~nxa" "%%i\%%~na"
))
pause>nul
复制代码

::使用方法是放在以日期为名的目录的同一目录下双击运行。
@echo off
setlocal enableDelayedExpansion
for /f "delims=" %%i in ('dir/s/b/a-d *.jpg *.bmp^|findstr "\\2008"') do (
　call :Mov "%%i"
)
echo 移动完成。按任意键退出……
pause>nul
goto :eof
:Mov
set n=
if not exist "%~n1" md "%~n1"
:addnum
if not exist "%~n1\%~n1!n!%~x1" (
　move "%~1" "%~n1\%~n1!n!%~x1"
) else (
　set/a n+=1
　goto :addnum
)
复制代码