在每个子文件夹中查找第一个电影文件并创建具有相同名称的 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 文件。