winrar右键批量解压后套了一层重复名称的文件夹，ps1批处理向上移动解决A\A

小樱

winrar右键批量解压后套了一层重复名称的文件夹，ps1批处理向上移动解决A\A

用7z右键菜单批量解压就没这种现象，但是winrar不知道为什么会这样，看起来是把rar压缩包的文件名用来创建一个文件夹，然后就导致重复了

例如解压后变成了
D:\test\A\A\B\C

莫名其妙的多了一层A，需要移动改回去，消除重复的A
D:\test\A\B\C

创建一个ps1文件，放在D:\test目录，然后运行
自己先复制几个文件夹来测试，这一份批处理代码是ai写的，我自己试了下确实好使，也手动给ai代码修了几个bug，比如发生跳过后文件被删了，以下是修复后可用的最终版本

1. # 设置要操作的根目录
   
2. $rootDir = "D:\test"
   
3. Write-Host "--- 目标根目录: $rootDir ---"
   
4. Write-Host "开始处理重复层级 (结构: A\A...) - **已启用安全删除检查**"
   
5. Write-Host ""
   
6. 
   
7. # 遍历根目录下的所有一级子文件夹 (A)
   
8. Get-ChildItem -LiteralPath $rootDir -Directory | ForEach-Object {
   
9.     $itemA = $_ # 当前处理的一级文件夹 A
   
10.     $pathA = $itemA.FullName
    
11.     $nameA = $itemA.Name
    
12.    
    
13.     Write-Host "----------------------------------------------------"
    
14.     Write-Host "正在检查父文件夹: '$nameA'"
    
15.    
    
16.     # 查找 A 内部是否存在一个与自身同名的子文件夹 (A/A)
    
17.     $duplicateFolderB = Get-ChildItem -LiteralPath $pathA -Directory | Where-Object { $_.Name -eq $nameA }
    
18.    
    
19.     if ($duplicateFolderB) {
    
20.         $pathB = $duplicateFolderB.FullName
    
21.         Write-Host "发现重复子文件夹 B: '$pathB'" -ForegroundColor Cyan
    
22.         
    
23.         # 目标：将子文件夹 B 内部的所有内容向上移动到 父文件夹 A
    
24.         $targetContents = Get-ChildItem -LiteralPath $pathB -Force
    
25.         $moveSuccessful = $true # 标记是否所有内容都已处理
    
26.         
    
27.         if ($targetContents.Count -gt 0) {
    
28.             Write-Host "发现 B 内部有 $($targetContents.Count) 项内容，准备向上移动..."
    
29.             
    
30.             try {
    
31.                 # 1. 移动子文件夹 B 内部的所有内容到父文件夹 A
    
32.                 foreach ($content in $targetContents) {
    
33.                     $destinationPath = Join-Path -Path $pathA -ChildPath $content.Name
    
34.                     
    
35.                     # 检查目标文件夹 A 中是否已存在相同名称的文件/文件夹，防止冲突
    
36.                     if (Test-Path -LiteralPath $destinationPath) {
    
37.                         Write-Host "警告: 父文件夹 A 中已存在 '$($content.Name)'，跳过移动此项。" -ForegroundColor Yellow
    
38.                         $moveSuccessful = $false
    
39.                         continue
    
40.                     }
    
41.                     
    
42.                     # 移动操作
    
43.                     Write-Host "    - 移动: '$($content.Name)'"
    
44.                     Move-Item -LiteralPath $content.FullName -Destination $pathA -Force -ErrorAction Stop
    
45.                 }
    
46.                
    
47.                 # 2. **修正后的安全删除：检查 B 是否为空并删除它**
    
48.                 # 只有当 B 文件夹内部没有剩余内容时，才删除它
    
49.                 $remainingContents = Get-ChildItem -LiteralPath $pathB -Force
    
50.                 if ($remainingContents.Count -eq 0) {
    
51.                     Remove-Item -LiteralPath $pathB -Recurse -Force -ErrorAction Stop
    
52.                     Write-Host "成功消除重复层级 A\A，并删除空文件夹 B。" -ForegroundColor Green
    
53.                 } else {
    
54.                     Write-Host "错误: 重复子文件夹 B 中仍有 $($remainingContents.Count) 项内容，保留 B。" -ForegroundColor Red
    
55.                     Write-Host "请手动检查 B 文件夹: '$pathB'" -ForegroundColor Red
    
56.                     $remainingContents | ForEach-Object { Write-Host "   - 保留项: $($_.Name)" -ForegroundColor Red }
    
57.                 }
    
58. 
    
59.             }
    
60.             catch {
    
61.                 Write-Host "严重错误: 移动或删除操作失败。" -ForegroundColor Red
    
62.                 Write-Host "路径: '$pathA'" -ForegroundColor Red
    
63.                 Write-Host "错误信息: $($_.Exception.Message)" -ForegroundColor Red
    
64.             }
    
65.         }
    
66.         else {
    
67.             # 文件夹 B 本身是空的，可以直接删除
    
68.             Remove-Item -LiteralPath $pathB -Recurse -Force -ErrorAction Stop
    
69.             Write-Host "发现重复子文件夹 B 为空，已直接删除。" -ForegroundColor Green
    
70.         }
    
71.     }
    
72.     else {
    
73.         Write-Host "未发现重复结构 A\A，跳过。"
    
74.     }
    
75. }
    
76. 
    
77. Write-Host ""
    
78. Write-Host "所有文件夹处理完成。"
    
79. Read-Host "按任意键退出..." # 确保窗口保持打开

复制代码