Question

使用批处理，将文件夹中多个文件的名称变为文件夹名称

我有多个文件夹在一个目录下，每个文件夹中有各种各样格式的文件（比如zip，MP4，mhtml）想把他们的名称变成他们所处文件夹的名称，不同格式的名称相同，如果相同格式就在后面加_1，2.。。。。n.

Answer 1

复制粘贴到记事本，另存为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
#>
[byte[]]$b=@(32,45,45,62,32);
$c=[Text.Encoding]::Default.GetString($b);
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$folders=@(dir -liter $path -recurse|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
    $files=@(dir -liter $folders[$i].FullName|?{$_ -is [System.IO.FileInfo]});
    for($j=0;$j -lt $files.length;$j++){
        $newname=$folders[$i].Name+$files[$j].Extension;
        $newfile=$files[$j].Directory.FullName+'\'+$newname;
        $n=2;
        while(test-path -liter $newfile){
            $newname=$folders[$i].Name+' ('+$n.toString()+')'+$files[$j].Extension;
            $newfile=$files[$j].Directory.FullName+'\'+$newname;
            $n++;
        };
        $files[$j].FullName+$c+$newname;
    };
}