[文件操作] 求一个批处理脚本重命名拖拽图片

@echo off
@setlocal enabledelayedexpansion

set num=001
call:count

:main
    for /R %%i in (*.jpg) do (
        if not %%~ni LSS %num% (
            rename "%%i" %num%.jpg
            set /A num+=1
            call:int
            goto:main
        )
    )
    call:sleep 125
goto:main

:count
    rem 计算已重命名的文件数
    if exist %num%.jpg (
        set /A num+=1
        call:int
        goto:eof
    )
goto:eof

:int
    rem 统一格式
    set num=000%num%
    set num=%num:~-3%
goto:eof

:sleep
    rem 防高频
    echo WScript.sleep %1 > sleep.vbs
    start /wait sleep.vbs
    del sleep.vbs
goto:eof
复制代码

@echo off& setlocal enabledelayedexpansion &rem by Gin
::可以检查是否拖入了上一次文件（间隔超过一次无法检测）
::如果中间删掉了一个文件可以自动补充（需要重新打开程序）
::需要把程序放在修改后的图片文件目录

::检查文件名
for /l %%a in (1,1,999) do (
	if %%a lss 10 ( if not exist "00%%a.jpg" ( echo 正在处理第%%a个文件
		call :input
		copy "!file!" "00%%a.jpg"))
	if %%a geq 10 ( if %%a lss 100 (if not exist "0%%a.jpg" ( echo 正在处理第%%a个文件
		call :input
		copy "!file!" "0%%a.jpg")))
	if %%a geq 100 ( if not exist "%%a.jpg" ( echo 正在处理第%%a个文件
		call :input
		copy "!file!" "%%a.jpg"))
	)
echo 文件数已到达999！
pause&exit
:input
	set /p file=请拖入文件:
	if "!file!" equ "!che!" goto :input
	set "che=!file!"
exit /b 0
复制代码