Single Post - Удаление в 50 каталогах лишних папок, с сохранением файлов

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Удаление в 50 каталогах лишних папок, с сохранением файлов

Author

Message

Tol!k

Posted: Sat Jan 14, 2012 17:25 Post subject:

Code:

@echo off &chcp 1251 >nul &setlocal enableextensions
rem Список папок "только 1 папка и 0 файлов на первом уровне вложенности"

set "list=_1.lst"

>"%list%" echo.
for /d /r %%d in (*) do (
dir "%%d" |find "0 файлов 0 байт" >nul &&for /f %%c in (
'dir "%%d" ^|find /c "<DIR>"'
) do if "%%c"=="3" >>"%list%" echo %%d
)

Last edited by Tol!k on Sat Jan 14, 2012 17:35; edited 1 time in total