在每个子文件夹中查找第一个电影文件并创建同名的txt文件

Question

我希望批处理脚本在所有子文件夹中找到第一个电影文件（首先我的意思是按字母顺序排列）并创建一个具有相同名称的txt文件。我得到所有包含文件的文件夹。与第一for循环，但第二个似乎并不如预期 电影格式的工作：WMV MKV MP4 AVI

@echo off 
set CurDir=%CD% 
for /f "tokens=*" %%G in ('dir /b /s /a:d %CurDir%') do (
    For /f "tokens=*" %%H in ('dir /A:-D "%%G"') do (
     echo %%H 
    ) 
) 
echo %CurDir% 
pause 

Answer 1

@echo off 
    setlocal enableextensions disabledelayedexpansion 
    set "curdir=%CD%" 

    for /r "%curdir%" /d %%d in (*) do (
     pushd "%%~fd" && (
      set "first=1" 
      for /f "delims=" %%a in (' 
       dir /b /a-d /on *.wmv *.mkv *.mp4 *.avi 2^>nul 
      ') do if defined first (
       set "first=" 
       type nul > "%%~nxa.txt" 
      ) 
      popd 
     ) 
    ) 

对于在结构中的每个文件夹，更改为文件夹，每个文件在列表中，如果它是文件夹中的第一个，则使用找到的文件的名称和扩展名生成txt文件。