@echo off
title [右键重命名文件程序]
mode con: cols=58 lines=12
color 6f

if not exist %systemroot%\batchRen.bat ( goto install) else ( goto next)
:install
echo.&echo   正在添加右键功能....&echo.
cd.>%systemroot%\batchRen.bat
>>%systemroot%\batchRen.bat echo @echo off
>>%systemroot%\batchRen.bat echo title [右键重命名文件程序]
>>%systemroot%\batchRen.bat echo mode con: cols=65 lines=30
>>%systemroot%\batchRen.bat echo color 6f
>>%systemroot%\batchRen.bat echo echo  [code by xieqingx 20100405 blog: hi.baidu.com/xieqingx]
>>%systemroot%\batchRen.bat echo set code=abcdefghijklmnopqrstuvwxyz0123456789
>>%systemroot%\batchRen.bat echo setlocal enabledelayedexpansion
>>%systemroot%\batchRen.bat echo cd /d %%1
>>%systemroot%\batchRen.bat echo for /f "delims=" %%%%i in ('dir /a-d/b') do (
>>%systemroot%\batchRen.bat echo set /a filenum+=1
>>%systemroot%\batchRen.bat echo call :int "%%%%~fi" "%%%%~xi" !filenum! )
>>%systemroot%\batchRen.bat echo echo   操作完成，正在关闭窗口....
>>%systemroot%\batchRen.bat echo ping -n 5 127.1 ^>nul^&exit
>>%systemroot%\batchRen.bat echo :int
>>%systemroot%\batchRen.bat echo set str=^&set n=
>>%systemroot%\batchRen.bat echo set name=%%~1
>>%systemroot%\batchRen.bat echo set ext=%%~2
>>%systemroot%\batchRen.bat echo set fnum=%%~3
>>%systemroot%\batchRen.bat echo :begin
>>%systemroot%\batchRen.bat echo set /a a=%%random%%%%%%35
>>%systemroot%\batchRen.bat echo set var=!code:~%%a%%,1!^&set str=!str!!var!
>>%systemroot%\batchRen.bat echo set /a n+=1
>>%systemroot%\batchRen.bat echo if !n! lss 30  ( goto begin) else ( set /a num+=1 )
>>%systemroot%\batchRen.bat echo if !num! == !fnum! (  
>>%systemroot%\batchRen.bat echo echo 正在重命名"!name!"文件
>>%systemroot%\batchRen.bat echo ren "!name!" "!str!!ext!"
>>%systemroot%\batchRen.bat echo echo 已更名为"!str!!ext!"
>>%systemroot%\batchRen.bat echo echo.-----------------------------------------------
>>%systemroot%\batchRen.bat echo ) else ( 
>>%systemroot%\batchRen.bat echo set num=
>>%systemroot%\batchRen.bat echo )
>>%systemroot%\batchRen.bat echo set str=^&set n=
reg add "HKCR\Directory\shell\batchRen" /ve /d "指定目录中所有子文件批量改名(&R)" /f >nul
reg add "HKCR\Directory\shell\batchRen\command" /ve /d "%systemroot%\batchRen.bat %%1" /f >nul
reg add "HKCR\Directory\shell\batchRen\command" /d 1  /v "check" /f >nul
echo   添加完毕,现在你可以使用右键菜单,请用右键操作文件夹，&echo.  
echo   选择 "指定目录中所有子文件批量改名(&R)" 的菜单项&echo.
echo   可以对你右键指定目录中的子文件来进行重命名操作了&echo.
echo   卸载成功，正在关闭窗口....
ping -n 8 127.1 >nul&exit
:next
echo.
echo                你要卸载此右键菜单功能吗？             
echo.
echo                  Y、是的，我不想要了
echo.
echo                  N、不，我要退出程序
echo.
set choice=
set /p choice=                请输入指定功能代码（Y/N）：
echo.
if not defined choice cls&goto next
set "choice=%choice:~0,1%"
if /i "%choice%"=="N" ( exit ) else (if /i "%choice%"=="Y" ( goto unload) else ( cls&&echo.&echo.&echo.&echo.&echo.&echo 
               请输入正确选项&ping -n 4 127.1>nul&cls&&goto :next))
:unload
del %systemroot%\batchRen.bat
reg delete "HKCR\Directory\shell\batchRen" /f >nul
echo                卸载成功，正在关闭窗口....
ping -n 4 127.1 >nul&exit
复制代码

 
@echo off
for %%i in (*) do echo %%i
pause
复制代码

@echo off
for %%a in (*.txt) do (set "a=%%a"
setlocal enabledelayedexpansion
echo.!a!
endlocal)
pause
复制代码

@echo off
color 6f
echo  [code by xieqingx 20100405 blog: hi.baidu.com/xieqingx]
set code=abcdefghijklmnopqrstuvwxyz0123456789
setlocal enabledelayedexpansion
set /p cdr=  请输入当前目录中要重命名所有子文件的文件夹
cd /d %cdr%
for /f "delims=" %%i in ('dir /a-d/b') do (
set /a filenum+=1
call :int "%%~fi" "%%~xi" !filenum! )
echo   操作完成，正在关闭窗口....
pause >nul&exit
:int
set str=&set n=
set name=%~1
set ext=%~2
set fnum=%~3
:begin
set /a a=%random%%%35
set var=!code:~%a%,1!&set str=!str!!var!
set /a n+=1
if !n! lss 30  ( goto begin) else ( set /a num+=1 )
if !num! == !fnum! (  
echo 正在重命名"!name!"文件
ren "!name!" "!str!!ext!"
echo 已更名为"!str!!ext!"
echo.-----------------------------------------------
) else ( 
set num=
)
set str=&set n=
复制代码

 
@echo off

mode con: cols=65 lines=30
color 6f
set code=abcdefghijklmnopqrstuvwxyz0123456789
setlocal enabledelayedexpansion
cd /d %1
for /f "delims=" %%i in ('dir /a-d/b') do (
set /a filenum+=1
call :int "%%~fi" "%%~xi" !filenum! )
echo   操作完成，正在关闭窗口....
ping -n 5 127.1 >nul&exit
:int
set str=&set n=
set name=%~1
set ext=%~2
set fnum=%~3
:begin
set /a a=%random%%%35
set var=!code:~%a%,1!&set str=!str!!var!
set /a n+=1
if !n! lss 50  ( goto begin) else ( set /a num+=1 )
if !num! == !fnum! (  
echo 正在重命名"!name!"文件
ren "!name!" "!str!!ext!"
echo 已更名为"!str!!ext!"
echo.-----------------------------------------------
) else ( 
set num=
)
set str=&set n=
复制代码

@echo off
for /f "delims=" %%a in ('dir /b') do (
set "a=%%a"
setlocal enabledelayedexpansion
echo ren !a! %random%
endlocal)
pause
复制代码

@echo off&color 6f&set c=0123456789abcdefghijklmnopqrstuvwxyz
set/p d=  请输入当前目录中要重命名所有子文件的文件夹
cd /d %d%
for /f "delims=" %%a in ('dir /b/a-d') do (set "a=%%a"&set "b=%%~na"
setlocal enabledelayedexpansion
echo.正在重命名"!a!"文件
for /l %%i in (1,1,36) do set/a n=!random!%%36&call set i=!i!%%c:~!n!,1%%
ren "!a!" "!i!%%~xa"
echo.已更名为"!i!%%~xa"
echo.-----------------------------------------------
endlocal)
echo   操作完成，等待关闭窗口....&pause >nul&goto :eof
复制代码