[gora]

Код:

@Echo Off
:: путь к каталогу с исследуемыми папками
Set folder=c:\Windows
Del /q listfolder.txt 2>Nul
For /F "UseBackQ Delims=" %%I In (`Dir "%folder%" /AD /B /ON 2^>Nul`) Do Echo %%I>>listfolder.txt
Pause>Nul

[Nun-Nun]

gora,

Огромное спасибо! Всё работает!

Если не сложно, поясните, как сделать, чтобы создаваемый файл был в нужной кодировке, например, не в 866, а в 1251, т.е. чтобы при его просмотре русские названия папок не отображались абракадаброй?

[gora]

как сделать, чтобы создаваемый файл был в нужной кодировке, например, не в 866, а в 1251 »

Добавьте второй строкой:

Код:

ChCp 1251>Nul

[Nun-Nun]

gora,

Прошу прощения, не понял, куда ChCp 1251>Nul в Вашем скрипте нужно добавить. Если ставлю следующей строчкой после For, то файл всё равно получается в кодировке 866.

[gora]

Второй строкой - это так:

Код:

@Echo Off
ChCp 1251>Nul 
:: путь к каталогу с исследуемыми папками
...

[Nun-Nun]

gora,

ОК, спасибо! Только ChCp 1251>Nul пришлось поставить непосредственно перед строчкой For, иначе не работает.

[Nun-Nun]

А возможно ли сделать, чтобы каждый раз не редактировать bat-ник при смене целевой папки, а просто чтобы закинуть его в нужную папку и он при запуске автоматом считывал все подпапки, расположенные в ней?

[gora]

просто чтобы закинуть его в нужную папку и он при запуске автоматом считывал все подпапки, расположенные в ней? »

Код:

@Echo Off
ChCp 1251>Nul
Del /q listfolder.txt 2>Nul
For /F "UseBackQ Delims=" %%I In (`Dir /AD /B /ON 2^>Nul`) Do Echo %%I>>listfolder.txt
Pause>Nul

[Nun-Nun]

Огромное спасибо! Работает!