@ECHO OFF&Setlocal EnableDelayedExpansion
:5
set answer=N
echo.
echo 批量删除文件前面日期选择1，批量删除文件夹前面日期选择2，是否继续？
set /p answer=文件选1，文件夹选2，输入其它键放弃...
if "%answer%"=="1" goto :1
if "%answer%"=="2" goto :2

::删除文件前面日期
:1
set /p z=s输入去掉字符个数:
set /a y=1%z%1||goto 1
for %%i in (*) do (set a=%%i
set c=!a:~0,3!
If "!c!"=="201" (
::如果前面是以201开头的文件则删除，非201开头的文件不执行下面操作
set b=!a:~%z%!
::删除前几位
::set b=!a:~0,%z%!
::保留前几位
ren "%%i" "!b!"
)
)
goto 5

::删除文件夹前面日期
:2
echo 删除文件夹前面日期
set /p z=s输入去掉字符个数:
set /a y=1%z%1||goto 2
for /d %%i in (*) do (set a=%%i
set c=!a:~0,3!
If "!c!"=="201" (
::如果前面是以201开头的文件则删除，非201开头的文件不执行下面操作
set b=!a:~%z%!
::删除前几位
::set b=!a:~0,%z%!
::保留前几位
ren "%%i" "!b!"
)
)

goto 5
pause
复制代码

@echo off
mode con lines=2000
title 互助互利,扫码头像,感谢赞助;有问题,加QQ956535081及时沟通
cd /d "%~dp0"
powershell ^
    dir -r^|?{$_.BaseName -match '^^\d{14}-'}^|sort {$_.FullName.Length} -des^|%%{^
        $newname=($_.BaseName -replace '^^\d{14}-','')+$_.Extension;^
        $newfile=$fd=[IO.Directory]::GetParent($_.FullName).FullName+'\'+$newname;^
        if(-not (test-path -liter $newfile)){^
            write-host $_.FullName -nonewline;^
            write-host (' --^> '+$newname) -ForegroundColor green;^
            mv -liter $_.FullName $newfile;^
        }else{^
            write-host ('[重名]'+$_.FullName+' --^> '+$newname) -ForegroundColor red;^
        };^
    };
pause
复制代码

set cmd=jren "^\d{14}-" "" /s & %cmd% /d & %cmd%
复制代码