10元求修改批处理实现照片改名

Haro

1. @echo off
   
2. for /d %%a in (*) do (
   
3.     setlocal enabledelayedexpansion
   
4.     for /f "delims=" %%b in ('dir /a-d/b "%%a\*.jpg"') do (
   
5.         set /a n+=1
   
6.         ren "%%a\%%b" "QLR_000!n!%%~xb"
   
7.     )
   
8.     endlocal
   
9. )
   
10. pause

复制代码

Haro

帮忙修改一下这个，我要指定修改QLR文件夹里的相片，我现在有2000个文件夹，每个文件夹里面有4个子文件夹，分别是FW,QT,QLR,DA  现在我要把所有QLR文件夹里的照片改名，改成QLR_0001,QLR_0002这样类型的

Haro

求大佬帮帮忙

Batcher

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /d %%a in (*) do (
   
4.     set n=10000
   
5.     for /f "delims=" %%b in ('dir /a-d /b "%%a\QLR\*.jpg"') do (
   
6.         set /a n+=1
   
7.         ren "%%a\QLR\%%b" "QLR_!n:~-4!%%~xb"
   
8.     )
   
9. )
   

复制代码

yhcfsr

1. @echo off&setlocal enabledelayedexpansion
   
2. (for /r /d %%a in (QLR) do if exist "%%a" (
   
3.         set "n=10000"
   
4.         pushd "%%a"
   
5.         for /r %%b in (*) do (
   
6.                 set/a "n+=1"
   
7.                 echo;%%b                        %%~nxa_!n:~-4!%%~xb
   
8.                 ren "%%b" "%%~nxa_!n:~-4!%%~xb"
   
9.         )
   
10.         popd
    
11. ))>重命名日志.LOG
    
12. pause

复制代码

zaqmlp

此人为骗子，两次未曾付款于我，各位看着办吧

yhcfsr

其实完全不必发有偿贴,论坛热心人很多,区区几十块大家也不会放在心上.
不过既然标为有偿,即使是1毛钱,也是事关诚信,必须得付.
题主如果采纳并付款,请截图贴出来.
建议管理员跟进此贴.

523066680

哈哈哈，过来人，很久以前经历过一次，我就没再认真对待这种“有偿帖”了。
主要是显得很 —— 掉价。

yhcfsr

回复 8# 523066680


  您这么一说,真让我汗颜啦.
  想一想,确实是这么回事.
  是我失态了

hnfeng

此人为骗子，两次未曾付款于我，各位看着办吧
zaqmlp 发表于 2018-12-11 21:03

    遇到过这种人……