[批处理]批量将文件名更名为其上级目录名

前言

今天从网上下载了点ASP.NET的视频，但是由于是免费的，所以有很多垃圾信息

更讨厌的是，每个文件名也都有非常长的一大长串垃圾广告，需要批量删除这些文件名中的广告字符串

如图：

@echo off
:start
setlocal enabledelayedexpansion
set isrun=n

echo 请把包含要处理的文件的[文件夹]拖动到此处，回车确定
set dir=n&set /p dir=
if "%dir:"=%"=="n" cls&goto start
cls&echo ====================================
:run
for /f "delims=" %%i in ('dir /s /b /a:-d %dir%\*.*') do (
set full=%%~dpnxi
set exten=%%~xi
set path=%%~dpi
set path=!path:~0,-1!
for /f "delims=" %%j in ("!path!") do set path=%%~nj
if /i "!isrun!"=="n" (
echo ren "!full!" "!path!!exten!"
) else (
ren "!full!" "!path!!exten!"
echo 更名为:"!path!!exten!"
)
)
echo ====================================
if /i "%isrun%"=="n" (
echo 即将执行以上操作，是否执行[Y/N]
set isrun=n&set /p isrun=
if /i "!isrun!"=="y" ( goto run ) else ( cls&goto start )
) else (
echo.&echo 更名完成！
echo 任意键返回&pause>nul&cls&goto start
)

View Code
——原文发表于2012-7-24 12:26