[ruslaw]

кстати, процитированный код включает в листинг и папки, что нежелательно

[megaloman]

Код:

@Echo Off

Set "BoxIn=Z:\In"
Set "LogExt=txt"

Call :DirTxt "%BoxIn%" 
For /F "usebackq delims=" %%d In (`Dir "%BoxIn%" /b /A:D /S 2^>nul`) DO Call :DirTxt "%%d"
GoTo :Eof

:DirTxt
	Set "OutLog=%~nx1.%LogExt%"
	>"%~1\%OutLog%" (For /F "usebackq delims=" %%f In (`Dir "%~1" /b /A:-D 2^>nul`) DO If /I Not "%%f"=="%OutLog%" @Echo %%f)
GoTo :Eof

[alpap]

Код:

@echo off
set "d=Путь к папке"
for /f "delims=" %%a in ('dir /a-d/b/s "%d%"') do set "pp=%%~dpa"& call :sp "%%pp:~,-1%%" "%%a"
pause& exit

:sp
 >>"%~1\%~n1.txt" echo %~2
exit /b

если в списке не нужны полные пути, а только имена файлов, изменить так: ... echo %~nx2

[ruslaw]

Спасибо большое!