[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 zhenzhu 于 2023-11-22 17:12 编辑

例如一个文件夹下有这样的几个子文件夹,里面的目录结构是这样:
A01/001/1.jpg
A02/002/002/aaa.jpg
A256/256/256/a/1.txt
A256/256/256/b/1.txt

就是想把001 256 这样的纯数字目录给删掉,但是最里面的文件或者文件夹给移动到最上层的目录下面,使其变成如下格式:
A01/1.jpg
A02/aaa.jpg
A256/a/1.txt
A256/b/1.txt
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

本帖最后由 /zhqsystem/zhq 于 2023-11-22 19:17 编辑

回复三楼代码修改:保留了目录树命名但是没进行你的那种改变,rem行是复制的执行RD行是删除空的文件夹千万不要加/s/q参数
  1. SetLocal EnableDelayedExpansion
  2. 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 (
  3. set "#=%%~fk"&&set "#=!#:%%~fj=!"&&set "#=!#:\=$!"
  4. rem xcopy /y "%%~fk" "%%~fj\!#!"&del/q "%%~fk\!#!"
  5. rem del/q "%%~fk"
  6. ren "%%~fk" "!#!"
  7. move "%%~dpk!#!" "%%~fj\"
  8. rd "%%~dpk"&rd "%%~dpk..\"&rd "%%~dpk..\..\"&rd "%%~dpk..\..\..\"
  9. )
复制代码
这么好的论坛你上哪找,运行测试环境为6.1.7601-64
注:请遵守互联网信息安全,勿用于非法用途

TOP

/zhqsystem/zhq 发表于 2023-11-22 14:51


谢谢,这个可以把文件都移动到顶层来,不过有个小问题,

例如A256/256/256/a/1.txt,运行脚本后就变成了A256/1.txt,没有保留a/1.txt的目录结构,因为有文件有重名,所以要保留除数字目录外的文件结构,有什么办法可以改进吗

TOP

  1. @echo off
  2. cd /d "%~dp0"
  3. for /d %%d in (*) do (
  4. pushd "%%d"
  5. for /f "delims=" %%i in ('dir /b /s /ad ^|sort /r') do (
  6. echo %%~nxi|findstr /rc:"^[0-9][0-9]*$" 1>nul && (
  7. robocopy "%%i" . /e /move
  8. )
  9. )
  10. popd
  11. )
  12. pause
复制代码
bat小白,请多指教!谢谢!

TOP

当前目录和所有父目录都不要存在纯数字的文件夹
  1. <# :
  2. @echo off
  3. powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
  4. pause
  5. #>
  6. ls -Recurse -File|%{$newpath=($_.Directory.ToString()+"\") -replace "\\\d+(?=\\)","";if(-not (Test-Path $newpath)){md $newpath};Move-Item $_.FullName $newpath}
  7. $p=@()
  8. ls -Recurse -Directory|%{$p+=$_.FullName+"\"}
  9. ($p.Length-1)..0|?{$p[$_] -match "\\\d+(?=\\)"}|%{rd $p[$_]}
复制代码
1

评分人数

TOP

当前目录和所有父目录都不要存在纯数字的文件夹
pd1 发表于 2023-11-22 15:50


谢谢,不过有个小问题,这个脚本会把最顶层的A01 A02等目录也删掉了

TOP

77七 发表于 2023-11-22 15:44



    太对了哥,就是这样的,谢谢

TOP

77七 发表于 2023-11-22 15:44


不过用robocopy会把文件都复制一次,内容很多的话就很耗时,如果有大文件就更慢了

TOP

回复 6# zhenzhu


    我测试没问题。可以发一下A01里面的文件的全路径看一下

TOP

回复 8# zhenzhu


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

评分人数

bat小白,请多指教!谢谢!

TOP

本帖最后由 zhenzhu 于 2023-11-22 17:09 编辑
回复  zhenzhu


    我测试没问题。可以发一下A01里面的文件的全路径看一下
pd1 发表于 2023-11-22 16:56


我的我的,我之前测试改了名称,顶层文件夹目录也是纯数字的,所以也被删掉了,这个脚本是没问题的,完美解决,谢谢老哥

TOP

回复  zhenzhu
77七 发表于 2023-11-22 17:04


完美解决了,谢谢老哥

TOP

回复  zhenzhu


    我测试没问题。可以发一下A01里面的文件的全路径看一下
pd1 发表于 2023-11-22 16:56


我后面测试又发现点小问题,如果父文件夹的名称有特殊字符,就无法处理了

中文 对照_3(2016) √
中文 对照-2(2019) √
中文 对照1(2019)[x5-x6] ×

应该是因为中括号的问题
------------------------------
md : 具有指定名称 C:\Users\Administrator\Desktop\test - 副本\中文 对照1(2019)[x5-x6]\ 的项已存在。
所在位置 行:6 字符: 116
+ ... ce "\\\d+(?=\\)","";if(-not (Test-Path $newpath)){md $newpath};Move-I ...
+                                                       ~~~~~~~~~~~
    + CategoryInfo          : ResourceExists: (C:\Users\Admini...1(2019)[x5-x6]\:String) [New-Item], IOException
    + FullyQualifiedErrorId : DirectoryExist,Microsoft.PowerShell.Commands.NewItemCommand

md : 具有指定名称 C:\Users\Administrator\Desktop\test - 副本\中文 对照1(2019)[x5-x6]\ 的项已存在。
所在位置 行:6 字符: 116
+ ... ce "\\\d+(?=\\)","";if(-not (Test-Path $newpath)){md $newpath};Move-I ...
+                                                       ~~~~~~~~~~~
    + CategoryInfo          : ResourceExists: (C:\Users\Admini...1(2019)[x5-x6]\:String) [New-Item], IOException
    + FullyQualifiedErrorId : DirectoryExist,Microsoft.PowerShell.Commands.NewItemCommand

md : 具有指定名称 C:\Users\Administrator\Desktop\test - 副本\中文 对照1(2019)[x5-x6]\ 的项已存在。
所在位置 行:6 字符: 116
+ ... ce "\\\d+(?=\\)","";if(-not (Test-Path $newpath)){md $newpath};Move-I ...
+                                                       ~~~~~~~~~~~
    + CategoryInfo          : ResourceExists: (C:\Users\Admini...1(2019)[x5-x6]\:String) [New-Item], IOException
    + FullyQualifiedErrorId : DirectoryExist,Microsoft.PowerShell.Commands.NewItemCommand

TOP

这样的目录结构:
A256\256\256\aaa\255\1.txt
结果是啥?

是 A256\1.txt ?
还是 A256\aaa\1.txt ?
又或者 A256\aaa\255\1.txt ?

TOP

返回列表