中国DOS联盟

拷贝下面代码到Bat文件 存到照片目录双击即可。 可以按照照片生成的日期分类照片。 如果存在相同文件则会修改文件名。 @echo off mode con lines=10 cols=42 echo **************************************** echo ***** 照片按日期分类 ******** echo **************************************** echo 分类中，请稍等............. set move_num=0 set nmove_num=0 set cmove_num=0 set filenum=0 set dirnum=0 for /F "delims=" %%i in ('dir /a-d /b *.jpg *.bmp *.gif *.jpeg *.avi *.thm *.wav') do ( call :md_copy "%%~ti" call :move_photo "%%i" "%%~ti" "%%~ni" %%~xi set /a filenum+=1) echo 分类结束! 处理 %filenum% 文件 !! 新建 %dirnum% 目录 !! echo %move_num% 文件成功归类!! echo %nmove_num% 文件未归类!! echo %cmove_num% 文件重命名!! pause>nul goto :eof :: ***************************************** :: ** MD dir of date and move the file :: ***************************************** :md_copy set dir_n=%1 set "dir_n=%dir_n:~1,10%" if not exist %dir_n%\nul (md %dir_n% 1>nul 2>nul set /a dirnum+=1) goto :eof :: ******************************************************* :: ** move the photo if file is already exist. change name :: ******************************************************* :move_photo set seq_num=0 set dir_n=%2 set "dir_n=%dir_n:~1,10%" set file_name=%3 set "file_name=%file_name:~1,-1%" if not exist %dir_n%\%1 (move %1 %dir_n% set /a move_num+=1) else (set /a cmove_num+=1 call :cn_move %1 %dir_n% %3 %4) goto :eof :: ******************************************************* :: ** Change file name move file :: ******************************************************* :cn_move set /a seq_num+=1 set file_name=%3 set "file_name=%file_name:~1,-1%" if not exist %2\"%file_name%%seq_num%%4" (move %1 %2\"%file_name%%seq_num%%4" set /a move_num+=1) else call :cn_move %1 %2 "%file_name%" %4 goto :eof