Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


CMD. Каталоги создаются нумерованные, тупо из 4 символов; файлы берутся по порядку, сначала более старые.
Код: Выделить весь код
@Echo Off
	Set /A Portion=10
	Set "Exclude=bat cmd xls "xlsm" txt"
	
	Set /A ND=10000
	Set /A NF=0

	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir *.* /B /O:D /A:-D`) Do Call :MyMove "%%f"
Exit /B

:MyMove
	For %%e In (%Exclude%) Do If /I ".%%~e"=="%~x1" Exit /B 1
	If Not %NF% EQU 0 GoTo :Cont
		:Begin
			Set /A ND+=1
			If Exist "%ND:~1%" GoTo :Begin 
		Md "%ND:~1%" 
	:Cont
	Set /A NF+=1
	>NUL Move "%~1" "%ND:~1%\"
	If %NF% EQU %Portion% Set /A NF=0 	
Exit /B
обрабатываются все файлы в папке, где расположен командный файл, кроме тех, расширение которых совпадают с указанными в списке (естественно, Вы его должны уточнить):

Set "Exclude=bat cmd xls "xlsm" txt"

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


Последний раз редактировалось megaloman, 13-01-2020 в 13:07.


Отправлено: 17:40, 12-01-2020 | #4