[文件操作] [已解决]可不可以强制跳转批处理（即使正在运行中）？

SetLocal EnableDelayedExpansion
   For /R %%a In (*.mp4 *.rmvb *.mkv) Do (
   Set "Str=%%~nxa"
    SetLocal&Cls
    Echo 视频文件：%%~nxa&Echo,
    For /f "Delims=" %%b In ('Dir /ad /b F:\视频') Do (
      Set /A Num+=1,Number+=1&Set ".!Num!=F:\视频\%%b"
      Set "Str=000!Num!"&Set "Var=%%b                    " 
      Set /P=[!Str:~-3!]!Var:~,20!<nul
      If "!Number!" EQU "2" Echo,&Set /A Number=0
    )
    Echo,&Set "Str="&Set /P Str=请选择文件夹:
    For %%b in (!Str!) do Echo !.%%b!>tem
    EndLocal
    Set /p Str=<tem&Del tem
    Echo,&Set "Var="&Set /P Var=A,直接建立文件夹 D，打开子文件夹：
    If /i "!Var!" EQU "D" (
      SetLocal&Cls
      Echo 视频文件：%%~nxa&Echo,
      For /F "Delims=" %%b In ('Dir /s /ad /b "!Str!"') Do (
        Set /A Num+=1,Number+=1&Set ".!Num!=%%b"
        Set "Str1=000!Num!"&Set "Var=%%b                    " 
        Set /P=[!Str1:~-3!]!Var:~,20!<nul
        If "!Number!" EQU "2" Echo,&Set /A Number=0
      )
      Echo,&Set "Str="&Set /P Str=请选择文件夹:
      For %%b in (!Str!) do Echo !.%%b!>tem
      EndLocal
      Set /p Str=<tem&Del tem
    )  
      SetLocal&Cls
      Echo 视频文件：%%~nxa&Echo,
    Set /P Name=所选文件夹是!Str!,请输入新文件夹名：
    If Not Exist "!Str!\!Name!" Md "!Str!\!Name!"
    Move "%%a" "!Str!\!Name!\"
复制代码

Echo,&Set "Str="&Set /P Str=请选择文件夹（输入Z退出程序）:
If /i "!Str!" EQU "Z" Exit
复制代码

:Loop
set a=
set /p a=输入：
cls
lf /i %a%==abcd (goto ok) else (echo 输入有误)

goto Loop

:ok
echo 恭喜你跳出来了
Pause
复制代码

@echo off
:Loop
choice /c:ab /m "input a or b "
cls
if errorlevel 2 (goto no)
if errorlevel 1 (goto ok) 

::choice命令的好处是不用回车，选项也可以自定义，坏处是必须结合goto使用，这里a对应返回值1，b对应返回值2，如有多余2个的选择，依此类推。
goto Loop

:ok
echo 恭喜你跳出来了
Pause
exit
pause>nul

:no
echo 恭喜跳到no
pause
复制代码