在每個子文件夾中查找第一個電影文件並創建同名的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文件。