...下的文件,并放到每个子文件夹中并删除子文件夹下的所有文件夹...

发布网友发布时间：2024-10-06 07:03

共1个回答

热心网友时间：2024-10-15 10:03

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为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
#>
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
[byte[]]$b=@(32,45,45,62,32);
$c=[Text.Encoding]::Default.GetString($b);
$folders=@(dir -liter $path|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
$subfolders=@(dir -liter $folders[$i].FullName|?{$_ -is [System.IO.DirectoryInfo]});
for($j=0;$j -lt $subfolders.length;$j++){
$files=@(dir -liter $subfolders[$j].FullName -recurse|?{$_ -is [System.IO.FileInfo]});
for($k=0;$k -lt $files.length;$k++){
$files[$k].FullName.Substring($path.length)+$c+$folders[$i].FullName.Substring($path.length);
}
write-host ('[delete]'+$subfolders[$j].FullName.Substring($path.length)) -ForegroundColor yellow;
write-host '';
}
}