[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件管理] 批处理版图片整理(进度版)

和namejm的代码比起来实在是微不足道.
功能少了很多,一个选项也没有.BUG也一大堆,因为是写给自己用的,所以也就足够了..
  1. @echo off
  2. mode con cols=86 lines=8
  3. title 图片整理(进度版)
  4. color 3f
  5. set nonum=0
  6. set yesnum=0
  7. del %temp%\copys.ini>nul 2>nul
  8. setlocal EnableDelayedExpansion
  9. set/p list=请拖入要整理的文件夹:
  10. for /f "tokens=*" %%i in ('dir %list%\*.jpg,%list%\*.gif /s/b') do (
  11.     for /l %%c in (1,1,45) do (set/p=<nul)
  12.     set /a yesnum+=1
  13.     echo %%~ti "%%i">>%temp%\copys.ini
  14.     set/p=正在收集.可以整理 !yesnum! 个文件.<nul
  15. )
  16. set /a copynum=yesnum/80+1
  17. set /a copygd=yesnum/copynum
  18. echo.&echo.&echo.&set /p=    <nul
  19. for /l %%i in (1,1,!copygd!) do set /p=-<nul
  20. for /l %%i in (1,1,!copygd!) do set /p=<nul
  21. for /f "tokens=1,2,*" %%j in (%temp%\copys.ini) do (
  22.     if not exist "\%%j\." md "%%j">nul 2>nul
  23.         copy %%l "%%j\" /y >nul 2>nul
  24.         del %%l>nul 2>nul
  25.         call :xs
  26.         set /a cf+=1
  27.         title 已经移动 !cf! 个文件...
  28. )
  29. echo.&echo.&echo.&echo.    整理完成!
  30. pause>nul&exit
  31. :xs
  32. set /a n+=1
  33. if !n! EQU !copynum! ((set n=0)&(set /p=^><nul)&goto :eof)
复制代码

返回列表