请教批处理,遇到重名时怎么自动重命名!
bat吧
全部回复
仅看楼主
level 1
xjhbbs 楼主
请教大神,我写了个批量修改文件后缀名的BAT脚本,在用的时候发现遇到转换后有重名就会转换不成功,怎么实现当有重名时自动重命名了?
这是我现在的代码,如果我现在要转换的文件夹里面有2个文件,文件名分别是11.doc , 11.docx, 这时候就会转换不成功。提示转换后有重名了,我想实现转换后当有重名时,就自动重命名,在此感谢!
@璐村惂鐢ㄦ埛_000076K馃惥 off
for /f "delims=" %%i in ('dir /b /a-d /s "*.docx"') do ren "%%i" "%%~ni.doc"
pause
2021年05月02日 00点05分 1
level 9
不清楚你的实际文件/情况,仅以问题中的样例/说明为据;以下代码复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的文件放一起双击运行
<# :
cls&echo off&mode con lines=5000
rem 更改文件的扩展名/后缀名,出现重名文件则在名称末尾添加递增的数字序号
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$ext=@{".docx"=".doc"}
[byte[]]$b=@(32,45,45,62,32);
$c=[Text.Encoding]::Default.GetString($b);
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$files=@(dir -liter $path -recurse|?{($ext.Keys -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
$newname=$files[$i].BaseName+$ext[$files[$i].Extension.toLower()];
$newfile=$files[$i].Directory.FullName+'\'+$newname;
$n=2;
while(test-path -liter $newfile){
$newname=$files[$i].BaseName+' ('+$n+')'+$ext[$files[$i].Extension.toLower()];
$newfile=$files[$i].Directory.FullName+'\'+$newname;
$n++;
}
$files[$i].FullName+$c+$newname;
}
2021年05月18日 08点05分 4
1