设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › [已解决]批处理为移动子目录下文件添加密码卡住了 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 22910|回复: 10

[其他] [已解决]批处理为移动子目录下文件添加密码卡住了

[复制链接]
kafen
发表于 2020-2-4 17:51:38 | 显示全部楼层 |阅读模式
论坛里找了个移动子目录下所有文件到指定文件夹中的批处理，担心使用过程中不小心执行了，所以想添加一个密码，结果在执行创建指定文件夹后不能正常执行下一步了，烦请大伙们指教下，谢谢了
  1. @echo off & setlocal enabledelayedexpansion

  3. set passwd=
  4. set /p passwd=请输入密码:
  5. if /i %passwd%==123456 goto start
  6. echo 密码错误!任意键退出...
  7. pause>nul
  8. exit

  10.    :start   
  11. if not "%~1"==":" (
  12.    md %cd%\new　2>nul
  13. for /f "tokens=1*delims=/" %%i in ('"%~f0" :^|sort') do (
  14.         if /i "%%i"=="!strName!" (
  15.             set /a n+=1
  16.             move "%%j" "%cd%\new\%%~ni(!n!)%%~xi"
  17.         ) else (
  18.             set "n="
  19.             move "%%j" %cd%\new\
  20.         )
  21.         set "strName=%%i"
  22.     )
  23.     pause
  24. ) else (
  25.     for /r %%i in (*) do echo %%~nxi/%%i
  26. )
复制代码
回复

举报

flashercs
发表于 2020-2-4 19:45:48 | 显示全部楼层
  1. @echo off & setlocal enabledelayedexpansion
  2. if "%~1"==":" goto start
  3. set passwd=
  4. set /p passwd=请输入密码:
  5. if /i %passwd%==123456 goto start
  6. echo 密码错误!任意键退出...
  7. pause>nul
  8. exit

  10.    :start   
  11. if not "%~1"==":" (
  12.    md %cd%\new　2>nul
  13. for /f "tokens=1*delims=/" %%i in ('"%~f0" :^|sort') do (
  14.         if /i "%%i"=="!strName!" (
  15.             set /a n+=1
  16.             move "%%j" "%cd%\new\%%~ni(!n!)%%~xi"
  17.         ) else (
  18.             set "n="
  19.             move "%%j" %cd%\new\
  20.         )
  21.         set "strName=%%i"
  22.     )
  23.     pause
  24. ) else (
  25.     for /r %%i in (*) do echo %%~nxi/%%i
  26. )
复制代码
回复

举报

kafen
 楼主| 发表于 2020-2-4 20:43:26 | 显示全部楼层
回复 2# flashercs


    感谢，非常感谢！！！
回复

举报

kafen
 楼主| 发表于 2020-2-4 21:09:16 | 显示全部楼层
回复 2# flashercs


您好，再请教下，能帮我看看下面的代码问题在哪里呢？如果最后能加入清空提取后的空子文件夹最好了，谢谢
@echo off & setlocal enabledelayedexpansion
if "%~1"==":" goto GTBegin
set passwd=
set /p passwd=请输入密码:
if /i %passwd%==123456 goto GTBegin
echo 密码错误!任意键退出...
pause>nul
exit

:GTBegin
echo.
echo.
echo ######################请选择要执行的操作######################
echo ------------1、输入数字1并按回车，以复制方式提取------------
echo ------------2、输入数字2并按回车，以剪切方式提取------------
echo.
echo.
echo 请选择要执行的操作
set /p GTConfirm=
if "%GTConfirm%"=="1" goto GTCOPY
if "%GTConfirm%"=="2" goto GTMOVE
echo 请输入正确的指令
pause >nul
goto GTBegin


:GTCOPY  
if not "%~1"==":" (
   md %cd%\new　2>nul
for /f "tokens=1*delims=/" %%i in ('"%~f0" :^|sort') do (
        if /i "%%i"=="!strName!" (
            set /a n+=1
            copy "%%j" "%cd%\new\%%~ni(!n!)%%~xi"
        ) else (
            set "n="
            copy "%%j" %cd%\new\
        )
        set "strName=%%i"
    )
    pause
) else (
    for /r %%i in (*) do echo %%~nxi/%%i
)

goto end

:GTMOVE  
if not "%~1"==":" (
   md %cd%\new　2>nul
for /f "tokens=1*delims=/" %%i in ('"%~f0" :^|sort') do (
        if /i "%%i"=="!strName!" (
            set /a n+=1
            move "%%j" "%cd%\new\%%~ni(!n!)%%~xi"
        ) else (
            set "n="
            move "%%j" %cd%\new\
        )
        set "strName=%%i"
    )
    pause
) else (
    for /r %%i in (*) do echo %%~nxi/%%i
)

:end
exit
回复

举报

smss
发表于 2020-2-4 21:18:19 | 显示全部楼层
for /f "delims=" %%a in ('dir /ad /b /s ^|sort /r') do (rd "%%a" 1>nul 2>nul)

反正就这意思你自己改改路径
回复

举报

kafen
 楼主| 发表于 2020-2-4 21:31:17 | 显示全部楼层
回复 5# smss
谢谢，上面的代码还运行不了
回复

举报

flashercs
发表于 2020-2-4 21:48:56 | 显示全部楼层
没有问题. 有问题自己提.
回复

举报

kafen
 楼主| 发表于 2020-2-4 22:23:43 | 显示全部楼层
回复 7# flashercs

我是添加了选项后不能正常运行呀，您刚才帮我改的加了密码的是可以运行的
回复

举报

flashercs
发表于 2020-2-4 22:40:38 | 显示全部楼层
回复 8# kafen


    是不能运行,这还得测试一下.麻烦
回复

举报

flashercs
发表于 2020-2-4 22:57:15 | 显示全部楼层
回复 8# kafen
  1. @echo off & setlocal enabledelayedexpansion
  2. if "%~1"==":" goto GroupFiles
  3. set passwd=
  4. set /p passwd=请输入密码:
  5. if /i %passwd%==123456 goto GTBegin
  6. echo 密码错误!任意键退出...
  7. pause
  8. exit /b

  10. :GTBegin
  11. echo.
  12. echo.
  13. echo ######################请选择要执行的操作######################
  14. echo ------------1、输入数字1并按回车，以复制方式提取------------
  15. echo ------------2、输入数字2并按回车，以剪切方式提取------------
  16. echo.
  17. echo.
  18. set /p GTConfirm=请选择要执行的操作:
  19. if "%GTConfirm%"=="1" goto GTCOPY
  20. if "%GTConfirm%"=="2" goto GTMOVE
  21. echo 请输入正确的指令
  22. pause
  23. goto GTBegin


  26. :GTCOPY  
  27. md "%cd%\new"
  28. for /f "tokens=1* delims=/" %%i in ('"%~f0" :^|sort') do (
  29.         if /i "%%i"=="!strName!" (
  30.             set /a n+=1
  31.            copy "%%j" "%cd%\new\%%~ni(!n!)%%~xi"
  32.         ) else (
  33.             set "n="
  34.            copy "%%j" %cd%\new\
  35.         )
  36.         set "strName=%%i"
  37.     )
  38. pause
  39. goto end

  41. :GTMOVE  
  42. md "%cd%\new"
  43. for /f "tokens=1* delims=/" %%i in ('"%~f0" :^|sort') do (
  44.         if /i "%%i"=="!strName!" (
  45.             set /a n+=1
  46.             move "%%j" "%cd%\new\%%~ni(!n!)%%~xi"
  47.         ) else (
  48.             set "n="
  49.             move "%%j" %cd%\new\
  50.         )
  51.         set "strName=%%i"
  52.     )
  53. pause
  54. goto end

  56. :GroupFiles
  57. for /r %%i in (*) do echo %%~nxi/%%i
  58. goto end

  60. :end
  61. exit /b
复制代码
回复

举报

kafen
 楼主| 发表于 2020-2-4 23:49:42 | 显示全部楼层
回复 10# flashercs


  谢谢谢谢！
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-26 14:29

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表