[решено] Как удалить все папки кроме папок с названием длиной в 14 символов?

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Как удалить все папки кроме папок с названием длиной в 14 символов?

Как удалить все папки на флешке, кроме папок с названием длиной 14 цифр и которые имеют хотя бы 1 файл с расширением *.dbf ?

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

Код:

@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

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

PHP код:


		
			
del /f /q %~d0*.*

Цитата:

Цитата yaoleg2

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

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

Код:

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

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

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

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

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

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

Код:

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\"