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

ningl

@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
复制代码

搜索就不完全了

ningl

回复 3# 回家路上


    好了  谢谢

ningl

回复 7# DAIC


    还是不行

ningl

回复 6# 回家路上


    你的建议到底是什么嘛

ningl

回复 7# DAIC


    哦 我试试

ningl

回复 6# 回家路上


    我只学我需要的

DAIC

回复 4# ningl


    移到红字那个地方

回家路上

我的建议你试了吗？。。。。。。
看我说怎么你那800多行脚本大量重复，也不把大段大段相同的东西抽取一下，原来不知道goto :eof，
eof估计意思是“end of file”。goto :eof 就是跳转到批处理文件结尾

DAIC都标红字你都看不到(⊙﹏⊙)b

另外，发脚本的话最好用code标签将其括起来，就会有像我上面的那种格式。特别是你发的这种大段的（中间还有文字叙述，猛一看我还以为就发了这么长一段代码呢）
http://www.bathome.net/viewthread.php?tid=404&highlight=code

ningl

回复 3# 回家路上


    goto eof?  都没有eof啊

ningl

回复 2# DAIC

移到哪里?

回家路上

pause>nul
复制代码

改成

goto :eof
复制代码

DAIC

goto zdy

: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 往上挪