[mwz]

зациклить удаление n первых по алфавиту файлов из папки? »

Т.е. чтобы в итоге из папки удалилось вообще всё?

[UserName1989]

mwz, нет, удалить все файлы проще)
А тут, к примеру, только первые пять...

И с паузой удалять по 5 файлов до тех пор, пока в папке не останется меньше пяти, но с этой частью всё понятно, а вот удаление конкретного количества - проблемка

[alpap]

это:

Код:

dir /a-d/b "C:\papka"|more +5

отправить на удаление
а паузу добавляйте, если надо, а если все это поместить в вывод for /l - получим цикл удаления пятерок, единственно надо посчитать все файлы заранее чтобы кол-во в for /l взять с запасом, но можно и точнее все сделать при желании, причем вариантов не один.

[UserName1989]

alpap,

Код:

:M1
set /a S=0
for /f %%K in ('dir /a-d /b /o:n') do set /a S+=1
if !S! GEQ %N% (
    for /l %%D in (1, 1, %N%) do del /f /q 'dir /a-d "C:\papka" '
    timeout /t %X% /nobreak
    ) 
GOTO M1

У меня вышло нечто вот такое, но явно косяк в удалении...

[alpap]

явно косяк в удалении.. »

в точку, надо то что в 4м п. в for /f оборачивать чтобы вывести для del то что ему удалять.

[megaloman]

UserName1989,

Вот вариант, который удалит кол-во файлов, кратное заданному числу, и оставляет кол-во файлов, менее этого числа, последние при сортировке по имени. Если кол-во файлов нацело делится на это число, удалятся все файлы

Код:

@Echo Off
cls                                                                                                 

chcp 866 >nul
Set "BoxIn=Z:\Папка с файлами"
Set "Mask=*"

Set /A Diskret=5

Pushd "%BoxIn%" || (Echo "%BoxIn%" not found &Pause &Exit /B 1)

chcp 437 >nul
Set /A N=0
FOR /F "usebackq tokens=1,2 delims= " %%i IN (`2^>nul Dir /A:-D`) DO If /I "%%j"=="File(s)" Set /A N=%%i

chcp 866 >nul
Set /A N=%N% %% %Diskret%

If %N%==0 Del /Q "%BoxIn%\*.%Mask%" 2>nul &Exit /B
 
FOR /F "usebackq Skip=%N% delims=" %%i IN (`2^>nul Dir /B /A:-D /O:-N "%BoxIn%\*.%Mask%"`) DO Del "%%i"
Exit /B

Если всё же надо удалять с паузами, то вот вариант

Код:

@Echo Off
cls                                                                                                 

chcp 866 >nul
Set "BoxIn=Z:\Папка с файлами"
Set "Mask=*"

Set /A Diskret=5
Set /A TPause=3

Pushd "%BoxIn%" || (Echo "%BoxIn%" not found &Pause &Exit /B 1)

chcp 437 >nul

:Begin
	Set /A N=0
	FOR /F "usebackq tokens=1,2 delims= " %%i IN (`2^>nul Dir /A:-D`) DO If /I "%%j"=="File(s)" Set /A N=%%i

	Set /A N=%N%-%Diskret%
        
	If Not %N% GTR 0 Exit /B
	If %N% GTR 0 FOR /F "usebackq Skip=%N% delims=" %%i IN (`2^>nul Dir /B /A:-D /O:-N "%BoxIn%\*.%Mask%"`) DO Del "%%i"
	TimeOut /T %TPause%  /NOBREAK
GoTo :Begin
Exit /B

[alpap]

если я правильно понимаю задание, то надо удалять из папки файлы пачками по 5 штук с паузой после пачки

Код:

@echo off
set "d=C:\papka"
set "f=C:\file-log.txt"
set cnf=5

:l
setlocal enabledelayedexpansion 
 pushd "%d%"
  2>nul dir /a-d/b|>nul find /v "" || goto :eof
  for /f "delims=" %%a in ('2^>nul dir /a-d/b') do (
   set /a n+=1& if !n! leq %cnf% (del "%d%\%%a"& >>%f% echo del "%d%\%%a")
  )
  timeout /t 3& >>%f% echo:
 popd
endlocal
goto l
pause& exit

Специально ввел в код лог-файл именно в котором и можно увидеть как происходит удаление файлов по моему видению задания
(файлы удаляются пачками по 5шт с соответствующей записью в лог, если число файлов не было кратное 5ти, последняя пачка просто будет содержать число файлов менее 5ти, на работе кода никак не скажется - удалены будут тоже и отображены в логе
если то оставшееся кол-во файлов после удаления которое менее 5ти должно оставаться, а не удаляться, то 9ю строку:

Код:

2>nul dir /a-d/b|>nul find /v "" || goto :eof

заменить на:

Код:

for /f %%a in ('dir /a-d/b^|find /c /v ""') do if %%a lss %cnf% goto :eof

)

[YuS_2]

Напоминает:
"- А хотите я его стукну? И он станет фиолетовым в крапинку!"©цитата

[alpap]

YuS_2, ага, ..., подобных бы товарищей всех во фриланс да под кругленькую сумму и условие научились бы писать правильно и полно и примеры бы привели и у препода 10 раз уточнили что он хочет.