[Petya V4sechkin]

volk1234, если XXX - маска, тогда так:

Код:

@Echo Off
SetLocal EnableExtensions

For %%D In (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) Do (
  For /F "Delims=" %%I In ('Dir %%D:\*XXX* /AD /B /S 2^>nul') Do (
    If Exist "%%I" Echo RD /S /Q "%%I"
  )
)

Если конкретное имя, примерно так:

Код:

@Echo Off
SetLocal EnableExtensions

Set F=XXX
For %%D In (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) Do (
  For /F "Delims=" %%I In ('Dir %%D:\%F%.* /AD /B /S 2^>nul') Do (
    If Exist "%%I" (
      If /I "%%~nxI"=="%F%" Echo RD /S /Q "%%I"
    )
  )
)

Команда Echo для тестирования (чтобы видеть результат).

[volk1234]

Вот блин, с циклами у меня всегда была проблемма.

Насколько я понял последний скрипт убьет папку Folder1 (вместо XXX, чтобы понятнее) например только в корне диска ??
А надо и во вложенных папках. Основная проблема именно в поиске и удалении папки, например, Folder1
в любом месте в любой папке. Например в F:\temp\market\dom\folder1

зы. Или ключ dir /s позволяет добится отображения всех подпапок ? Тогда класс...

[volk1234]

Отчет об использовании полученной информации

читать дальше »

http://forum.ru-board.com/topic.cgi?forum=5&topic=21013&start=2000#21

Копирайт поставил Petya V4sechkin

[amel27]

есть еще вариант через WMI:

Код:

@Echo Off
SetLocal EnableExtensions

Set DIR=XXX

For /F "UseBackQ Tokens=2 Delims==" %%i In (
   `WMIC FSDIR Where 'Name LIKE "%%\\%DIR%"' Get Name /Value^|Find "="`
) Do For /F "Delims=" %%a In ('Echo %%i') Do Echo RD /S/Q "%%a"

не вижу смысла в сканировании сетевых или CD дисков, т.к. сильно замедляется работа скрипта, а шары лучше чистить локально на сервере, поэтому можно ограничить... скажем, только локальные (HDD) и сменные (USB):

Код:

@Echo Off
SetLocal EnableExtensions EnableDelayedExpansion

Set DIR=1

For /F "Skip=1 UseBackQ Tokens=1,2" %%i In (
   `WMIC LogicalDisk Where 'DriveType^=2 Or DriveType^=3' GET Name^,SystemName`
) Do If Not "%%j"=="" If Defined $R (
   Set $R=!$R! OR Drive^^^^="%%i"
   ) Else  Set $R=Drive^^="%%i"

If Not Defined $R Exit /B 1

For /F "UseBackQ Tokens=2 Delims==" %%i In (
   `WMIC FSDIR Where '^(%$R%^) And Name LIKE "%%\\%DIR%"' Get Name /Value^|Find "="`
) Do For /F "Delims=" %%a In ('Echo %%i') Do Echo RD /S/Q "%%a"

[Petya V4sechkin]

volk1234, а вообще, опасно это - вот так папку везде удалять.

[volk1234]

Да. Надо наверное доработать скрипт - сначала вывод найденых папок - а потом запрос на удаление.....
Кто возьмется ?
Я никак не могу взяться за изучение справки по команде For - для меня темный лес....

[amel27]

volk1234, а если они все на экран не влезут?..
если в RD убрать ключ /Q, то будет спрашивать для каждой папки

[gora]

а если они все на экран не влезут?.. »

Вывести их в текстовый файл_список, открыть его в Блокноте для просмотра и редактирование и приостановить работу скрипта паузой. После просмотра, редактирования, сохранения файл_списка (если это потребуется) и закрытия блокнота, продолжить работу скрипта, нажатием любой кнопки в окне консоли, и грохнуть все папки согласно файл_списку!
Вместо паузы можно предусмотреть выбор вариантов "Грохнуть - Выход".

[volk1234]

Вообще я сильно сомневаюсь что таких папок будет больше 200-300, по умолчанию буфер cmd = 300 строк.

Даже в большом количестве папок можно разглядеть - что конкретную папку удялять не надо - ответить нет - переименовать нужные папки и снова запустить скрипт.

Loginvovchik развил бурную деятельность, черт меня дернул сказать ему про скрипт
http://community.acdsee.com/forums/t...ders-originals