[分享]目录树层搜索

/zhqsystem/zhq

重新修正下错误

1. @echo off&setlocal enabledelayedexpansion
   
2. call:path_dp0
   
3. echo,批处理所在层数: !n!
   
4. set/p "目录树层数设置=输入一个层次,必须为10进制正整数,层次必须大于!n!:"
   
5. if !n! Geq %目录树层数设置% echo,出现一个错误批处理在当前层或子层自动复制到当前根层&&ping /n 5 127.1 >nul&&xcopy/y "%~f0" "%~d0"&&start/i "" "%~d0\%~nx0"&&exit
   
6. set "计数文件=0"&&set "计数文件夹=0"
   
7. for /f "delims=" %%i in ('dir/s/b "%~dp0*.*"')do (
   
8. set "#=%%~fi"&&call:path
   
9. if !n! equ %目录树层数设置% (
   
10.   if exist "%%~fi" (
    
11.    set/a "计数文件夹+=1"
    
12.    echo,文件夹结果!计数文件夹!: %%i
    
13.   )else if exist "%%~fi" (
    
14.    set/a "计数文件+=1"
    
15.    echo,文件  结果!计数文件!: %%i
    
16.   )
    
17. )
    
18. )
    
19. pause
    
20. goto:eof
    
21. :path_dp0
    
22. set "#=%~f0"&&call:path
    
23. goto:eof
    
24. :path
    
25. set "n=-1"
    
26. if exist "!#!" (set "n=-1")else set "n=-2"
    
27. :path_loop
    
28. if not defined # goto:eof
    
29. for /f "tokens=1,* delims=" %%y in ("!#!")do set "#=%%z"
    
30. set/a "n+=1"
    
31. goto:path_loop

复制代码

PerlMonk

风格可以更好