[amel27]

так как ничего не сказано про подкаталоги, ищем только папки в корне диска, а файл в корне папки:

Код:

@Echo Off
Set DRV=H

For /F "Delims=" %%a In ('Dir /B/AD %DRV%:\*^|FindStr /VXRC:".............."') Do Echo RD /S/Q "%DRV%:\%%~sna"
For /F "Delims=" %%a In ('Dir /B/AD %DRV%:\*') Do If Not Exist "%DRV%:\%%a\*.dbf" Echo RD /S/Q "%DRV%:\%%~sna"

P.S. для боевого запуска убрать 2 команды Echo

[yaoleg2]

amel27, А как удалить из корня диска Н:\ все файлы кроме *.dbf ? СПАСИБО !!!

PHP код:

del /f /q %~d0*.* 

[gora]

А как удалить из корня диска Н:\ все файлы кроме *.dbf ? »

допишите еще одну строку:

Код:

For /F "Delims=" %%a In ('Dir /B/A-D %DRV%:\') Do If Not "%%~xa"==".dbf" Echo Del /F/Q "%DRV%:\%%a"

Про Echo amel27 написал.

[yaoleg2]

gora, У меня удаляются все файлы, а должны удалятся все кроме файлов с расширением *.dbf.

[gora]

Исправил

[yaoleg2]

СПАСИБО amel27, gora, все получилось!!!

[yaoleg2]

Все папки удаляет как надо, но возникла проблема с удалением папок в названии которых есть украинская буква "і". Как можно решить эту проблему?

[amel27]

yaoleg2, подправил, проверяйте

[vxor]

Код:

For /F "Delims=" %%a In ('Dir /B/AD %DRV%:\*^|FindStr /VXRC:".............."') Do Echo RD /S/Q "%DRV%:\%%~sna"

Все прекрасно работает, кроме папки

Код:

c:\Documents and Settings\All Users\Главное меню\Программы\ABBYY FineReader 8.0\

Команды:

Код:

For /F "Delims=" %%a In ('Dir /B/AD "%allusersprofile%\Главное меню\Программы\*"^|FindStr /VXRC:"Автозагрузка"^|FindStr /VXRC:"Администрирование"^|FindStr /VXRC:"Игры"^|FindStr /VXRC:"Стандартные"') Do RD /S/Q "%allusersprofile%\Главное меню\Программы\%%~sna"
For /F "Delims=" %%a In ('Dir /B/AD "%userprofile%\Главное меню\Программы\*"^|FindStr /VXRC:"Автозагрузка"^|FindStr /VXRC:"Стандартные"') Do RD /S/Q "%userprofile%\Главное меню\Программы\%%~sna"

Ее не удаляет.

В чем может быть проблема? Притом она просто удаляется через команду:

Код:

rd /S/Q "c:\Documents and Settings\All Users\Главное меню\Программы\ABBYY FineReader 8.0\"