@echo off 
setlocal enabledelayedexpansion 
set "n=0" 
for /f "delims=" %%a in ('dir/a/b *.mp4') do call :a "%%a" 
for /f "delims=" %%a in ('dir/a/b/on *.mp4') do set/a "n+=1"&ren "%%a" "!n:~-3!%%~xa" 
echo 处理完成,按任意键退出... 
exit 
:a 
ren "%~1" "%random%%~x1" || goto a
复制代码

@echo off & setlocal enabledelayedexpansion
if "%~1" neq "OK" (
    set "n=1000"
    for /f "tokens=2,3delims=|" %%a in ('"%~0" OK ^| sort') do (
        set /a n+=1
        echo ren "%%b" "!n:~1!.%%a"
    )
    pause & exit/b
) else (
    for %%a in (*.txt) do (
        for /f "tokens=*delims=0123456789." %%b in ("%%a") do (
            echo,!random!^|%%b^|%%a
        )
    )
)
复制代码

-- 重命名
[1/6]分开旅行  ->  0001.分开旅行
[2/6]嘀答  ->  0002.嘀答
[3/6]范玮琪 - 我们的纪念日  ->  0003.范玮琪 - 我们的纪念日
[4/6]多少  ->  0004.多少
[5/6]蝶恋  ->  0005.蝶恋
[6/6]范玮琪 - 我们可不可以不勇敢  ->  0006.范玮琪 - 我们可不可以不勇敢
-- 完成
复制代码

-- 重命名
[1/6]0002.范玮琪 - 我们可不可以不勇敢  ->  0001.范玮琪 - 我们可不可以不勇敢
[2/6]0005.分开旅行  ->  0002.分开旅行
[3/6]0006.范玮琪 - 我们的纪念日  ->  0003.范玮琪 - 我们的纪念日
[4/6]0003.多少  ->  0004.多少
[5/6]0004.嘀答  ->  0005.嘀答
[6/6]0001.蝶恋  ->  0006.蝶恋
-- 完成
复制代码

-- 随机重命名完成！是否需要取消随机序号？[Y/N] y
0001.范玮琪 - 我们可不可以不勇敢  ->  范玮琪 - 我们可不可以不勇敢
0002.分开旅行  ->  分开旅行
0003.范玮琪 - 我们的纪念日  ->  范玮琪 - 我们的纪念日
0004.多少  ->  多少
0005.嘀答  ->  嘀答
0006.蝶恋  ->  蝶恋
-- 完成
复制代码

@echo off
title 文件随机排序  By Ｙu２n@qq.com

:_get_input
set "strPath=V:\mp3\*.mp3"
set/p "strPath=请输入文件夹路径，支持通配符，如（%strPath%）："
if not defined strPath goto :_get_input
set "strPath=%strPath:"=%"
if "%strPath:~-1%" equ "\" set "strPath=%strPath:~0,-1%"
if not exist "%strPath%" goto :_get_input

REM 启用延迟环境变量扩展 
setlocal enabledelayedexpansion 

:: 统计个数
echo -- 统计个数
call :_get_count
echo -- 总计 %nCount% 个文件
echo.

:: 生成随机变量 $n$
echo -- 生成随机变量 $n$，映射随机变量与路径对应关系
for /l %%i in (1,1,%nCount%) do (
  call :_rnd %%i
)
echo -- 完成
echo.

echo -- 重命名
for /l %%i in (1,1,%nCount%) do (
  REM 从随机变量中读取值
  for /f "delims=??" %%j in ('echo,"!$%%i$!"') do (call :_rename "!#%%~j#!"  "%%i")
)
echo -- 完成
echo.

set/p p=-- 随机重命名完成！是否需要取消随机序号？[Y/N] 
if /i "%p:~0,1%" equ "y" (
  call :_re_rename
  echo -- 完成
  pause
)

goto :eof


:_rename
  for /f "delims=??" %%i in ('echo,"%~1"') do (
    set "fn1=%~n1"
    for /f "tokens=1,* delims=." %%j in ('echo,"%~n1"') do (
      set/a "sn=%%~j"
      REM 排除多个点号
      if !sn! neq 0 set "fn1=%%~k"
    )
    REM 4 位序号
    set sn=0000%~2
    set sn=!sn:~-4!
    echo [%~2/%nCount%]%~n1  -^>  !sn!.!fn1!
    rename "%~1" "!sn!.!fn1!%~x1"
  )
  goto :eof
  
  
:: 取消随机序号
:_re_rename
  for /f "delims=??" %%i in ('dir /a-d /b /s "%strPath%"') do (
    for /f "tokens=1,* delims=." %%j in ('echo,"%%~ni"') do (
      set/a "sn=%%~j"
      if !sn! neq 0 (
        echo %%~ni  -^>  %%~k
        rename "%%~i" "%%~k%%~xi"
      )
    )
  )
  goto :eof

  
:: 统计个数，生成升序变量 #n#
goto :eof
:_get_count
  set/a nCount=0
  for /f "delims=??" %%i in ('dir /a-d /b /s "%strPath%"') do (
    set/a nCount=!nCount! + 1
    REM add env
    set "#!nCount!#=%%~i"
    echo !nCount!. %%~i
  )
  goto :eof

  
:: 生成随机变量 $n$
goto :eof
:_rnd
  set/a min=1
  set/a max=%nCount%
  set/a num=(%random%) %% (%max% - %min% + 1) + %min%
  if defined $%num%$ goto :_rnd
  REM add env ##
  set $%num%$=%1
  goto :eof
复制代码

@echo off&cd/d %~dp0&set/a n=1000
setlocal enabledelayedexpansion
for /f "tokens=1* delims=_" %%i in (
'dir/b/a-d *.mp4^|findstr/b "[0-9][0-9]*_"')do ren "%%i_%%j" "%%j"
for %%i in (*.mp4)do set "#!random!=%%i"
for /f "tokens=1* delims==" %%i in ('set #')do (
   set/a n+=1
   echo !n:~1!_%%j
   ren "%%j" "!n:~1!_%%j"
)
set/p=按任意键退出... <nul&EXIT>nul
复制代码