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

Haro

@echo off
for /d %%a in (*) do (
    setlocal enabledelayedexpansion
    for /f "delims=" %%b in ('dir /a-d/b "%%a\*.jpg"') do (
        set /a n+=1
        ren "%%a\%%b" "QLR_000!n!%%~xb"
    )
    endlocal
)
pauseCOPY

Haro

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

Haro

求大佬帮帮忙

Batcher

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

yhcfsr

@echo off&setlocal enabledelayedexpansion
(for /r /d %%a in (QLR) do if exist "%%a" (
	set "n=10000"
	pushd "%%a"
	for /r %%b in (*) do (
		set/a "n+=1"
		echo;%%b			%%~nxa_!n:~-4!%%~xb
		ren "%%b" "%%~nxa_!n:~-4!%%~xb"
	)
	popd
))>重命名日志.LOG
pauseCOPY

zaqmlp

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

yhcfsr

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

523066680

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

yhcfsr

回复 8# 523066680


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

hnfeng

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

    遇到过这种人……