中国DOS联盟

重命名 当前目录下所有 指定的扩展名文件 为上级目录名,两个文件以上自动添加序号.

如:E:\Tencent下有以下文件
E:\Tencent\qq\w.exe
E:\Tencent\qq\e.exe

用脚本自动重命名为
E:\Tencent\qq\qqa.exe
E:\Tencent\qq\qqb.exe
或
E:\Tencent\qq\qq1.exe
E:\Tencent\qq\qq2.exe

如果指定的扩展名只有一个文件,直接改为上级目录名相同

[ Last edited by bjsh on 2007-7-31 at 12:57 PM ]

Try this

@echo off&Setlocal EnableDelayedExpansion



set /p file_type=输入文件的扩展名，格式为：

if not defined file_type exit



for /f "delims=" %%a in ("%cd%") do set new_name=%%~na



for /f "delims=" %%a in ('dir /b *%file_type%') do (

	set /a num+=1

	ren "%%a" "%new_name%!num!%file_type%"

)



if %num% equ 1 ren "%new_name%1%file_type%" "%new_name%%file_type%"



pause&exit/b

测试有效，我开始没说清楚，如果做成是包括子文件夹呢，应该怎么写？而且文件排序是根据什么排？
文件名也是改成它上一级目录名

[ Last edited by chenwc520 on 2007-6-18 at 02:10 PM ]

是不是改"dir /b" 为"dir /o:n" 就是按名称(字母顺序)排序？？？

@echo off
setlocal enabledelayedexpansion
cls
if exist my.txt del my.txt /q
if exist kong.txt del kong.txt /q
::目标文件夹路径
set u=D:\bat\my2
::选择命名方式 name1和name2两种
goto name1

::将文件名命名为所属文件夹名称
:name1
::循环遍历包括子文件夹的所有文件夹，获取文件夹名称
for /f "delims=" %%i in ('dir /b/ad/s %u%') do (
set a=0
set y=1
::判断文件夹是否为空，为空则删除
dir /a /b "%%i"|findstr .>nul||set/a y=0&&echo %%i是空目录将被删除&&rd "%%i"&&echo %%i已被删除
::如果文件夹非空，则修改文件夹下文件名称，否则进入下一个文件夹
if !y!==1 (
for /f "delims=" %%j in ('dir /b/a-d "%%i"') do (
if "%%~xj"==".abr" (
ren "%%i\%%j" "%%~ni!a!.abr"
echo 重命名:%%i\%%j -----------%%~ni!a!.abr>>my.txt
) else (echo %%i\%%j不是画笔文件>>my.txt)
set/a a+=1
)
)
)
goto end

::将文件名命名为所属根目录文件夹的名称
:name2
for /f "delims=" %%i in ('dir /b %u%') do (
set a=
for /f "delims=" %%j in ('dir /b/a-d/s "%u%\%%i"') do (
if "%%~xj"==".abr" (
ren "%%j" "%%i!a!.abr"
echo 重命名:%%j -----------%%i!a!.abr>>my.txt
) else (echo %%j不是画笔文件>>my.txt)
set/a a+=1
)
)
goto end

:end
endlocal
if exist my.txt start my.txt
if exist kong.txt start kong.txt

不好意思没帮你改一下就发上来了，这个是我用来修改photoshop画笔文件（.abr）的批处理命令，因为我个人需要包含了两种修改方式，而且还包含了些当时调试用的代码，不过不影响使用，你自己看看那吧也许能有帮助，本人系初学者，万望高手指教

楼上的朋友,测试过不行,不过还是谢谢你

Originally posted by jubailan at 2007-6-21 15:12:
@echo off
setlocal enabledelayedexpansion
cls
if exist my.txt del my.txt /q
if exist kong.txt del kong.txt /q
::目标文件夹路径
set u=D:\bat\my2
::选择命名方式 name1和name2两种 ...

很好用, 如能把文件名的序号0取消就更好了

路过看看！