[文件操作] 全盘搜索文件的批处理代码 独自放在外面可以复制所以文件 和其他放在一起就不行

@echo off
setlocal enabledelayedexpansion
set /p "zf=  输入字符(如 *.txt;a*.txt;???s.*):"
set /p "lj=  设置你要备份的路径(如 c:\):"
echo              正在全盘搜索......
md "%lj%"
for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
    if exist %%a:\ (
        for /f "tokens=*" %%i in ('dir /a /b /s "%%a:\%zf%"') do (
            if exist "%lj%\%%~nxi" (
                call :GetNewName "%%~nxi"
                echo f | xcopy /h /y "%%i" "%lj%\!NewFile!"
            ) else (
                xcopy /h /y "%%i" "%lj%\"
            )
        )
    )
)

:GetNewName
set "name=%~n1"
set "ext=%~x1"
set n=1
:LoopName
if exist "%lj%\%name%_!n!%ext%"  (
   set /a n+=1
   goto :LoopName
)
set NewFile=%name%_!n!%ext%
复制代码

@ECHO off
setlocal enabledelayedexpansion
mode con cols=45 lines=30
color 3f
:ning
title         作者:NingL   
CLS
ECHO.
ECHO.   
ECHO      如有建议请联系  QQ847988972   
ECHO.      
ECHO              主菜单
ECHO          选择你需要的服务
ECHO.
ECHO.                                            
ECHO          [1]文件搜索拷贝           
ECHO.        
ECHO          [2]搜索导出文件路径 
ECHO.      
ECHO          [3]搜索删除      
ECHO.     
ECHO          [4]结束进程(不适合XP) 
ECHO.   
ECHO          [0]退出
ECHO.   
ECHO.
ECHO.   
     
set /p choice=    输入数字选择按[Enter]执行:
if not "%choice%"=="" set choice=%choice%
if /i "%choice%"=="1" goto liang
if /i "%choice%"=="2" goto jie
if /i "%choice%"=="3" goto aaaa
if /i "%choice%"=="4" goto iiiii
if /i "%choice%"=="0" exit
goto ning

:liang
cls  
ECHO.
ECHO.   
ECHO.
ECHO            自己选择吧
ECHO.                                            
ECHO          [1]自定义搜索拷贝         
ECHO.        
ECHO          [2]常用文件拷贝
ECHO.
ECHO          [3]返回主菜单   
ECHO.
ECHO          [0]退出
ECHO.   
ECHO.

set /p choice=    输入数字选择按[Enter]执行:
if not "%choice%"=="" set choice=%choice%
if /i "%choice%"=="1" goto zdy
if /i "%choice%"=="2" goto sgs
if /i "%choice%"=="3" goto ning
if /i "%choice%"=="0" exit
goto liang

:zdy
cls
ECHO.
ECHO.   
ECHO                                ningl
ECHO.   
ECHO.                                            
ECHO          [1]全盘搜索         
ECHO.        
ECHO          [2]自定义盘符
ECHO.
ECHO          [3]返回上一层   
ECHO.   
ECHO          [4]返回主菜单
ECHO.
ECHO          [0]退出
ECHO.   
ECHO.

set /p choice=    输入数字选择按[Enter]执行:
if not "%choice%"=="" set choice=%choice%
if /i "%choice%"=="1" goto qpss
if /i "%choice%"=="2" goto zdypf
if /i "%choice%"=="3" goto liang
if /i "%choice%"=="4" goto ning
if /i "%choice%"=="0" exit
goto liang


:qpss
cls
setlocal enabledelayedexpansion
set /p "zf=  输入字符(如 *.txt;a*.txt;???s.*):"
set /p "lj=  设置你要备份的路径(如 c:\):"
echo              正在全盘搜索......
md "%lj%"
for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
    if exist %%a:\ (
        for /f "tokens=*" %%i in ('dir /a /b /s "%%a:\%zf%"') do (
            if exist "%lj%\%%~nxi" (
                call :GetNewName "%%~nxi"
                echo f | xcopy /h /y "%%i" "%lj%\!NewFile!"
            ) else (
                xcopy /h /y "%%i" "%lj%\"
            )
        )
    )
)

:GetNewName
set "name=%~n1"
set "ext=%~x1"
set n=1
:LoopName
if exist "%lj%\%name%_!n!%ext%"  (
   set /a n+=1
   goto :LoopName
)
set NewFile=%name%_!n!%ext%
pause>nul
goto zdy
复制代码