[文件操作] [已解决]批处理怎么移动多级目录下的文件到其顶层目录下

SetLocal EnableDelayedExpansion
for /f "delims=" %%i in ('dir/ad/b ".\*.*"')do for /f "delims=" %%j in (".\%%~nxi")do for /f "delims=" %%k in ('dir/a-d/s/b "%%~fj\*.*"')do (
 set "#=%%~fk"&&set "#=!#:%%~fj=!"&&set "#=!#:\=$!"
 rem xcopy /y "%%~fk" "%%~fj\!#!"&del/q "%%~fk\!#!"
 rem del/q "%%~fk"
 ren "%%~fk" "!#!"
 move "%%~dpk!#!" "%%~fj\"
 rd "%%~dpk"&rd "%%~dpk..\"&rd "%%~dpk..\..\"&rd "%%~dpk..\..\..\"
)
复制代码

@echo off
cd /d "%~dp0"
for /d %%d in (*) do (
	pushd "%%d"
	for /f "delims=" %%i in ('dir /b /s /ad ^|sort /r') do (
		echo %%~nxi|findstr /rc:"^[0-9][0-9]*$" 1>nul && (
			robocopy "%%i" . /e /move
		)
	)
	popd
)
pause
复制代码

<# :
@echo off
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
pause
#>
ls -Recurse -File|%{$newpath=($_.Directory.ToString()+"\") -replace "\\\d+(?=\\)","";if(-not (Test-Path $newpath)){md $newpath};Move-Item $_.FullName $newpath}
$p=@()
ls -Recurse -Directory|%{$p+=$_.FullName+"\"}
($p.Length-1)..0|?{$p[$_] -match "\\\d+(?=\\)"}|%{rd $p[$_]}
复制代码

@echo off
cd /d "%~dp0"
for /d %%d in (*) do (
	pushd "%%d"
	for /f "delims=" %%i in ('dir /b /s /ad ^|sort /r') do (
		echo %%~nxi|findstr /rc:"^[0-9][0-9]*$" 1>nul && (
			for /f "delims=" %%x in ('dir /b "%%i"') do (
				move /-y "%%i\%%x" .
			)
			rd "%%i"
		)
	)
	popd
)
pause
复制代码