[amel27]

Проблема в следующем, когда скрипт находит что папок больше указанного кол-ва, он пытается их удалить, НО выводит потом сообщение - "ПАПКА НЕ ПУСТА", тоесть для теста создал неск пустых папок, он их удалил норм, а если там уже чтото содержится то выводит данное сообщение. »

не похоже чтобы скрипт, поищите по форуму по фразе "папка не пуста", например:
Ошибка - [решено] Не удается удалить [название папки]. Папка не пуста.

[megaloman]

Как-то сложновато у Вас ... Вроде бы для разных папок делается одно и то же действие, а Вы зачем-то пишите два куска для этого. Вот батник, который заменяет Ваши вторую и третью части скрипта: работает одна и та же подпрограмма LimCountDir. В ней сначала подсчитываем число папок, затем сколько папок надо удалить, затем по порядочку удаляем их, начиная с самых старых.
Процедура в указанной папке (Where) оставляет указанное кол-во самых свежих подпапок (HowMuch).
для сортировки по датам используется ключ /O команды Dir
С Вашим копированием не разбирался, если бы Вы просто описали, по какому принципу образуются имена файлов (директорий) - было бы проще.

Код:

@Echo off
rem Пути указываем без кавычек и без \ и пробелов на конце
rem -------------------------------------------

Set HowMuch=1
Set Where=F:\Delete\Install
rem ---------------------------------------------------
Call :LimCountDir "%Where%" %HowMuch%
rem ---------------------------------------------------

Set HowMuch=5
Set Where=\\SERVER_NT\{Общая}\Delete\Install
rem ---------------------------------------------------
Call :LimCountDir "%Where%" %HowMuch%
rem ---------------------------------------------------
GoTo :Eof

rem ----------------------------------------------------
:LimCountDir

rem Подсчитаем кол-во директорий (Count) в указанной папке %1 (Путь передали в аргументе)
Set Count=0
FOR /F "usebackq  delims=" %%i IN (`Dir /B /A:D /O:D "%~1\"`) DO Call :CountDir

rem Удалим старые директории в указанной папке %1 сверх максимального количества %2 (передали в аргументе) 
Set /A DelCount=%Count%-%2
Set Count=0
FOR /F "usebackq delims=" %%i IN (`Dir /B /A:D /O:D "%~1\"`) DO Call :DelNumCount %DelCount% "%~1\%%i"
GoTo :Eof

:CountDir
Set /A Count=%Count%+1  
GoTo :Eof

:DelNumCount 
Set /A Count=%Count%+1
If %Count% LEQ %1 Rd %2 /S /Q 
GoTo :Eof
rem ----------------------------------------------------

[kiripanda]

сначала подсчитываем число папок, затем сколько папок надо удалить... »

а на пуркуа считать?

Код:

FOR /F "usebackq skip=%2 delims=" %%i IN (`Dir /B /A:D /O:-D "%~1\"`) DO RD /S/Q "%~1\%%i"

skip=%2 — сколько папок оставить

[megaloman]

FOR /F "usebackq skip=%2 delims=" %%i IN (`Dir /B /A:D /O:D "%~1\"`) DO RD /S/Q "%~1\%%i"

Так Вы оставите самые старые папки. Спасибо, заставили внимательнее прочесть хелп Dir

/O Сортировка списка отображаемых файлов. D По дате (сперва более старые) Префикс "-" обращает порядок

Мой код упростится вообще до минимума

Код:

@Echo off
rem Пути указываем без кавычек и без \ на конце
rem -------------------------------------------

Set HowMuch=1
Set Where=F:\Delete\Install
Call :LimCountDir "%Where%" %HowMuch%

Set HowMuch=5
Set Where=\\SERVER_NT\{Общая}\Delete\Install
Call :LimCountDir "%Where%" %HowMuch%

GoTo :Eof

:LimCountDir
FOR /F "usebackq skip=%2 delims=" %%i IN (`Dir /B /A:D /O:-D "%~1\"`) DO Rd "%~1\%%i" /S /Q
GoTo :Eof

[Bullet-Avalon]

Спасибо Вам большое, опробовал ваш скрипт megaloman, все отлично работает!
Благодарю всех.

[kiripanda]

Так Вы оставите самые старые папки.»

Упс. Не посмотрел на порядок сортировки, ибо не тестировал. Действительно, нужен

"Префикс "-" обращает порядок"

Мой код упростится вообще до минимума »

Можно обойтись без Set

Код:

@Echo off
rem Пути указываем без \ на конце
rem -----------------------------

Call :LimCountDir "F:\Delete\Install" 1

Call :LimCountDir "\\SERVER_NT\{Общая}\Delete\Install" 5

GoTo :Eof

:LimCountDir
FOR /F "usebackq skip=%2 delims=" %%i IN (`Dir /B /A:D /O:-D "%~1\"`) DO Rd "%~1\%%i" /S /Q
GoTo :Eof

[megaloman]

kiripanda,Очевидно

Можно обойтись без Set

Однако я придерживаюсь обычно такого стиля: в начале я определяю некие исходные параметры задачи, что требует ряд Set, а затем уже рисую сам батник. Надо было бы написать:

Код:

Echo off
rem Пути указываем без кавычек и без \ на конце
rem -------------------------------------------

Set HowMuch1=1
Set Where1=F:\Delete\Install

Set HowMuch2=5
Set Where2=\\SERVER_NT\{Общая}\Delete\Install

Call :LimCountDir "%Where1%" %HowMuch1%
Call :LimCountDir "%Where2%" %HowMuch2%

GoTo :Eof

:LimCountDir
FOR /F "usebackq skip=%2 delims=" %%i IN (`Dir /B /A:D /O:-D "%~1\"`) DO Rd "%~1\%%i" /S /Q
GoTo :Eof

Обычно я еще и комментарии пишу к исходным данным. Делаю это для того, чтобы максимально надёжно и быстро перенастроить батник, если условия поменялись. В принципе, для уменьшения числа строк кода, можно обойтись и без Call. В угоду краткости я не иду на ухудшение в удобстве использования. Однако, в примере я отошел от этого правила, так как смысл имела только процедура, а всё остальное - тестовые строки.