求助批处理实现文件各级子文件夹索引

@echo off&cd /d "%~dp0"
set "out=folderlist.txt"
type nul>"%out%"
for /f "delims=" %%a in ('dir /ad-h/b/s') do (
    set "f="
    if exist "%%~a\*.c" set f=1
    if exist "%%~a\*.h" set f=1
    if defined f >>"%out%" echo;%%~a
)
pause
exit
复制代码

@echo off&cd /d "%~dp0"
for /f "delims=" %%a in ('dir /ad-h/b/s') do (
    pushd "%%~a\"
    dir /a-h/b >"%tmp%\t.t"
    copy /y "%tmp%\t.t" "%%~nxa.gpj" >nul
    popd
)
pause
exit
复制代码

@echo off
setlocal enabledelayedexpansion
set "MyFolder=C:\Users\2304388\Desktop\demo\project\"
cd /d "%MyFolder%"
(for /f "delims=" %%i in ('dir /b /s /a-d *.c *.h') do (
    set "OldStr=%%~dpi"
    set "NewStr=!OldStr:%MyFolder%=!"
    set "NewStr=!NewStr:~0,-1!"
    if not defined _!NewStr! (
        echo,!NewStr!
        set "_!NewStr!=1"
    )
))>"C:\Users\2304388\Desktop\123.txt"
endlocal
复制代码

@echo off
set "MyFolder=C:\Users\2304388\Desktop\demo\project\source"
cd /d "%MyFolder%"
for /f "delims=" %%i in ('dir /b /s /ad') do (
    pushd "%%i"
    if exist *.c (
        if exist *.h (
            (for /f "delims=" %%a in ('dir /b /ad 2^>nul') do (
                echo %%a.gpj
            ))>"%temp%\%%~nxi.gpj" 
            dir /b /a-d >>"%temp%\%%~nxi.gpj" 2>nul
            move /y "%temp%\%%~nxi.gpj" . >nul
        )
    )
    popd
)
复制代码