（已解决）30元微信or支付宝：终级子目录以多级父目录名称命名

<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
path %SYSTEMROOT%\System32\WindowsPowerShell\v1.0;%path%
set "current=%cd%"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal \"%~f0\"|Out-String|Invoke-Expression"
pause
exit
#>
$current=($env:current).trimend('\');
$folders=@(dir -literal $current -recurse|?{$_ -is [System.IO.DirectoryInfo]}|sort {$_.FullName.length} -Descending);
for($i=0;$i -lt $folders.length;$i++){
    $subfolders=@(dir -literal $folders[$i].FullName|?{$_ -is [System.IO.DirectoryInfo]});
    if($subfolders.length -eq 0){
        $folderpath=$folders[$i].FullName.Substring($current.length+1)
        $newname=$folderpath.replace("\", "-");
        $newfolder=$folders[$i].Parent.FullName.trimend('\')+'\'+$newname;
        write-host ($folderpath+' --> '+$newname);
        move-item -literal $folders[$i].FullName $newfolder -ErrorAction SilentlyContinue;
    }
}COPY

@echo off
set "d=C:\A\B"
rem 以上设置主目录
cd "%d%"
setlocal enabledelayedexpansion
for /r /d %%a in (*) do (
    set "has_dir=0"
    for /f "delims=" %%i in ('dir /b /ad "%%a"') do set "has_dir=1"
    if !has_dir! equ 0 (
        set "p=%%a"
        set "p=!p:~3!"
        set "p=!p:\=-!"
        echo ren "%%a" "!p!"
rem 如测试确认，则删除以上echo执行
        )
)
pauseCOPY

set fso=createobject("scripting.filesystemobject")
sub filetree(fdobject,name)
	set folders=fdobject.subfolders
	for each folder in folders
        		if folder.subfolders.count=0 then
			fso.movefolder folder.path,replace(folder.path,folder.name,name&"-"&folder.name)
		else
			name=name&"-"&folder.name
			filetree folder,name
		end if
	next
end sub
filetree fso.getfolder("这里填写目标目录","这里填写目标目录的目录名")
'例：filetree fso.getfolder("c:/windows","windows")COPY

$fld = "."
 
if ( $fld -like "?:*" ) {
	$p = $fld
} else {
	$p = Join-Path $PSScriptRoot $fld
}
Set-Location $p
[string]$p = Get-Location
 
Get-ChildItem -Recurse -Directory $p | ForEach-Object {
	if ( -not ( Get-ChildItem -Directory -Path $_.fullname )) {
		$p2 = $_.fullname.Substring( $p.Length +1 )
		$NewName = Join-Path $_.Parent.FullName ( $p2 -replace "\\","-" )
		Write-Host "--" $_.fullname.Substring( $p.Length +1 )
		write-Host "  " $NewName.Substring( $p.Length +1 )
#		Rename-Item $_.fullname -NewName $NewName
	}
}COPY

@echo off&setlocal enabledelayedexpansion
set "folder=C:\test"
for /f %%i in ("%folder%") do set "name=%%~nxi"
for /d /r "%folder%" %%i in (*) do (
     set "f=1"
     for /d %%i in ("%%i\*") do if defined f set "f="
     if defined f (
        set "newfilename=%%i"
        set "newfilename=!newfilename:%folder%=%name%!"
        ren "%%i" "!newfilename:\=-!"
     )
)
pauseCOPY