批处理之家 - Powered by Discuz! Board

@echo off&setlocal enabledelayedexpansion&title RenamedElves V1.0&set "BRT=%~0"&set "BRTP=%~dp0"&cd /d "%~dp0"&if /i "%~1"=="R" goto 开始演示
:开始请勿擅改代码，否则后果自负。
cls&echo;&echo;&echo;
echo; 批量改名精灵 RenamedElves V1.0
echo; ==========================================================================
echo; 本工具可批量修改当前目录及目录下所有文件的文件名为指定文件名。
echo; 不支持特殊符号（如叹号），请自行修改。附带其他功能，谨慎使用。
echo; 本工具不能完全保证数据安全，请注意备份，按章操作，自负后果。
echo; ==========================================================================
echo;
echo; 1、批量改名 - 批量将当前文件名改为随机数。
echo; 2、批量恢复 - 批量恢复原来的文件名。
echo; 3、功能演示 - 演示批量改名和恢复的过程。
echo; 4、试验文件 - 生成用于演示的文件。
echo; 5、破坏删除 - 破坏并删除目录下所有文件，慎用！
echo; 6、文件属性 - 修改文件隐藏、只读等属性。
echo; 7、快捷方式 - 自动创建快捷方式。
echo; 8、文件夹封口胶 - 可以生成难以删除的文件夹。
echo;
set input=
set /p input= 请选择：
if "%input%"=="" goto 开始
if "%input%"=="1" call :改名
if "%input%"=="2" call :恢复
if "%input%"=="3" call :演示
if "%input%"=="4" call :演示文件
if "%input%"=="5" call :删除
if "%input%"=="6" call :属性
if "%input%"=="7" call :快捷方式
goto 开始
:属性修改文件属性：只读-r、存档-a、系统-s、隐藏-h
setlocal disabledelayedexpansion
echo;&echo; 开始批量修改文件属性，可能较慢，请耐心等待 . . .
echo; ==========================================================================
echo; 清除属性【Y】-r -a -s -h 添加属性【N】+r +a +s +h
echo;&set input=
set /p input= 请选择[Y/N]：
if "%input%"=="" goto 开始
if /i "%input%"=="Y" for /f "tokens=*" %%a in ('dir /s /b /a') do if not "%%~a"=="!BRT!" (attrib /s /d -r -a -s -h "%%~a")
if /i "%input%"=="N" for /f "tokens=*" %%a in ('dir /s /b /a') do if not "%%~a"=="!BRT!" (attrib /s /d +r +a +s +h "%%~a")
setlocal enabledelayedexpansion
goto :eof
:改名
echo;&echo; 开始批量改名 . . .
echo; ==========================================================================
echo; 可批量修改当前目录下所有文件和目录的名称为随机数，让其杂乱无章；
echo; 文件Rename.brt备份原文件完整路径名，用于恢复原文件名，请勿删除；
echo; 过程可逆，可通过功能演示【3】了解工作原理，使用时注意检查即可。
echo;
echo;
set input=
set /p input= 是否继续？[Y/N]：
if "%input%"=="" goto 开始
if "%input%"=="3" call :演示
if /i not "%input%"=="Y" goto :eof
setlocal disabledelayedexpansion&set "FailureDT=Renamed_%date:~0,4%%date:~5,2%%date:~8,2%%time:~0,2%%time:~3,2%%time:~6,2%.brt"
cd.>FindFile.brt&if exist Rename.brt (ren Rename.brt "%FailureDT%") else cd.>Rename.brt
dir /b /s /a|sort /r>>FindFile.brt
set var=&setlocal enabledelayedexpansion&del Failure.txt>nul
for /f "tokens=*" %%a in (FindFile.brt) do if not "%%~a"=="!BRT!" if not "%%~a"=="!BRTP!FindFile.brt" if not "%%~a"=="!BRTP!%FailureDT%" if not "%%~a"=="!BRTP!Rename.brt" if not "%%~a"=="!BRTP!Failure.txt" (
set /a num+=!time:~0,2!!time:~3,2!!time:~6,2!!time:~9,2!/3
set "var=~!random!!num!.tmp"
echo "%%~pda" "!var!" "%%~nxa"
Ren "%%~a" "!var!"||echo;"!date! !time!" "%%~a">>Failure.txt
Rem 以上四行代码用于生成和显示随机数字并将文件名重命名为该数字，可修改成你需要的新名称。
)>>Rename.brt
del FindFile.brt>nul&echo;&if exist Failure.txt echo;&echo; Renamed Failure！以下文件无法修改，请自行修改！&type Failure.txt
echo;&echo; 改名完成！&pause>nul&goto :eof
:恢复
echo;&echo; 开始批量恢复文件名 . . .
echo; ==========================================================================
echo; 将当前目录下所有文件的文件名恢复为原来的文件名。
echo;&set input=
set /p input= 请选择[Y/N]：
if "%input%"=="" goto 开始
if /i not "%input%"=="Y" goto :eof
echo;&for /f "tokens=*" %%a in ('sort Rename.brt') do (
set count=0
for %%i in (%%a) do (
set /a count+=1
if !count!==1 set "var1=%%~i"
if !count!==2 set "var2=%%~i"
if !count!==3 set "var3=%%~i"
)
ren "!var1!!var2!" "!var3!"||echo;Failure："!var3!"
)
echo;&echo; 恢复完成！&pause>nul&goto :eof
:暂时不使用！还没有设计好！存在安全隐患！~
echo;&echo; 开始批量删除文件 . . .
echo; ==========================================================================
echo; 将强制删除当前目录下的所有文件，可能无法恢复数据，请慎用！
echo;&set input=
set /p input= 请选择[Y/N]：
if "%input%"=="" goto 开始
if /i not "%input%"=="Y" goto :eof
md "%temp%\~.tmp">nul
rd /s /q "%temp%\~.tmp\~.tmp">nul
del /f /s /a /q "%temp%\~.tmp\~.tmp">nul
::在系统临时目录创建一个新的临时目录
for /f "tokens=*" %%a in ('dir /s /b /a') do if not "%%~a"=="!BRT!" (
echo;%%a
attrib /s /d -r -a -s -h "%%~a"
cd.>"%%~a"
ren "%%~a" "~.tmp"
move "~.tmp" "%temp%\~.tmp"
del /f /s /a /q "%temp%\~.tmp\~.tmp"
cd.>"%%~a\`.tmp"
)
::将在当前目录下搜索到的文件去掉各种属性，统一重命名为!.tmp，转移到新建的临时目录，然后删除，写入新文件覆盖原来路径。
for /f "tokens=*" %%a in ('dir /s /b /a "%temp%\~.tmp"') do if not "%%~a"=="!BRT!" (rd /q /s "%%~a")
echo;&echo; 删除完成！&pause>nul&goto :eof
:演示
cls&setlocal enabledelayedexpansion
echo;
echo; 开始演示过程，注意观察演示文件夹内文件名称的变化 . . .
echo;
call :演示文件
pause
if exist "!BRTP!演示\演示.bat" "!BRTP!演示\演示.bat" R
goto :eof
:开始演示
echo;
call :改名
echo;
pause
echo;
call :恢复
echo;
rd /s /q "!BRTP!演示">nul
echo;&echo; 演示完成！&pause>nul&goto 开始
:演示文件
if exist "!BRTP!演示" rd /s /q "!BRTP!演示">nul&goto :eof
md "!BRTP!演示"
copy "!BRT!" "!BRTP!演示\演示.exe"
cd.>"!BRTP!演示\开始演示.txt"
md "!BRTP!演示\新建文件夹"
cd.>"!BRTP!演示\新建文件夹\我的密码.txt"
md "!BRTP!演示\新建文件夹 (2)"
cd.>"!BRTP!演示\新建文件夹 (2)\Bathome.bat"
cd.>"!BRTP!演示\新建文件夹 (2)\新建文本文档 (2).txt"
goto :eof
:快捷方式
echo;&echo; 开始生成快捷方式 . . .
pause
goto :eof