Answer 1

复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的多个文件夹放一起运行

@echo off
rem 文件夹名称开头添加首个中文/汉字的拼音首字母
set #=Any question&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$% %z%
cd /d "%~dp0"
set a=/.:&set b=http&set c=com
set d=%b%%a:~2,1%%a:~,1%%a:~,1%csstools%a:~1,1%chinaz
set e=%a:~1,1%%c%%a:~,1%tools%a:~,1%js%a:~,1%pinyin%a:~1,1%js
powershell -NoProfile -ExecutionPolicy bypass ^
    $web=New-Object System.Net.WebClient;^
    $web.Encoding=[Text.Encoding]::UTF8;^
    $html=$web.DownloadString('%d%%e%');^
    $m=[regex]::match($html, 'var pydic ?= ?\""([^^\""]+)\""');^
    if($m.success){^
        $pydic=$m.groups[1].value;^
        $folders=@(dir^|?{$_ -is [System.IO.DirectoryInfo]});^
        for($i=0;$i -lt $folders.length;$i++){^
            $s='';$newname='';^
            $c=$folders[$i].Name[0].toString();^
            $n=$pydic.indexOf($c);^
            if($c -match '[\u4e00-\u9fa5]'){^
                if($n -ge 0){^
                    $s=$pydic.Substring($n+1,1);^
                    $s=($s -replace '[āáǎà]','a') -replace '[ōóǒò]','o';^
                    $s=($s -replace '[ēéěè]','e');^
                };^
            };^
            $newname=$s.toUpper()+$folders[$i].Name;^
            write-host ($folders[$i].Name+' --^> '+$newname);^
            if($folders[$i].Name -ne $newname){mv -liter $folders[$i].FullName ($folders[$i].Parent.FullName+'\'+$newname);};^
        };^
    };
:end
echo;%#% +%$%%$% %z%
pause