[gora]

раскидать по папкам »

Команда "раскидать" заменена на "Copy"

Код:

@Echo Off
SetLocal EnableDelayedExpansion
:: Обрабатываемая папка
Set Folder=e:\Temp\Source
:: папка назначения
Set Out=e:\Temp\jpg

For /R "%Folder%" %%i In (*.jpg) Do (
	Set ti=%%~ni
	MD "%Out%\!ti:~1,8!" 2>Nul
	Copy "%%i" "%Out%\!ti:~1,8!">Nul
)
Pause>Nul

[megaloman]

Если "раскидать" - это переместить, не создавая дубликата файла, то логичнее Copy заменить нa Move, и перемещать не по 1 файлу, а группой по маске (по дате). Цикл For у gora тогда можно переписать в виде

Код:

For /R "%Folder%" %%i In (*.jpg) Do (
       IF EXIST "%%i" (
	   Set name=%%~ni
           Set mask=!name:~1,8!
           MD "%Out%\!mask!"
           Move "%%~dpi?!mask!*%%~xi" "%Out%\!mask!\"
       )
)

Ежели файлы всё же надо копировать, а не перемещать, то для копирования группой по маске For у gora можно переписать в виде

Код:

For /R "%Folder%" %%i In (*.jpg) Do (
       Set name=%%~ni
       Set mask=!name:~1,8!
       IF Not EXIST "%Out%\!mask!\*.*" MD "%Out%\!mask!"
       IF Not EXIST "%Out%\!mask!\%%~nxi" Copy "%%~dpi?!mask!*%%~xi" "%Out%\!mask!\"
)

При повторном запуске этого батника перезапись уже скопированных файлов не производится

[Reyter]

Господа, поможите...
Нужно примерно то же самое, но:
1) дату нужно брать из атрибутов файла
2) имя создаваемых каталогов - "ДД-ММ" (и не спрашивайте, почему такое дурацкое имя. исторически сложилось)

[gora]

Код:

@Echo Off
SetLocal EnableDelayedExpansion
:: Обрабатываемая папка
Set Folder=e:\Temp\Source
:: папка назначения
Set Out=e:\Temp\jpg

For /R "%Folder%" %%i In (*.jpg) Do (
	Set tim=%%~ti
	Set tim=!tim:~0,5!
	Set tim=!tim:.=-!
	If Not Exist "%Out%\!tim!" MD "%Out%\!tim!"
	Copy "%%~i" "%Out%\!tim!">Nul
)

[Reyter]

Спасибо! Работает

[Reyter]

Так... Условия задачи поменялись

Файлы текстовые, содержимое (текст) каждого файла начинается с даты в формате DDMMYYYY. Т.е. первая строка выглядит как-то так:
30082012|#|08606|0004.......
Необходимо раскидать по тому же принципу, что и в задаче выше.
С меня пиво

[gora]

Код:

@Echo Off
SetLocal EnableDelayedExpansion
:: Обрабатываемая папка
Set Folder=e:\Temp\Source
:: папка назначения
Set Out=e:\Temp\jpg

For /R "%Folder%" %%a In (*.txt) Do (
	Set flag=
	For /F "usebackq tokens=* delims=" %%i In ("%%a") Do (
		If Not Defined flag (
			Set flag=1
			Set tim=%%i
			Set tim=!tim:~0,2!-!tim:~2,2!
			If Not Exist "%Out%\!tim!" MD "%Out%\!tim!"
			Copy "%%a" "%Out%\!tim!"
		)
	)
)

[Reyter]

Спасибо! Вы меня очень сильно выручили!

[4zz]

Уважаемый megaloman!
Помогите победить проблему- в приведенном ниже примере, в случае присутствия пробелов в названии папки из которой запускается батник - он не срабатывает(( , а если пробелов нет, то все ОК.
Т.е. если папка "Январь 22" - не сработает, а если "Январь", то все хорошо.

@Echo Off
SetLocal EnableDelayedExpansion
:: Обрабатываемая папка
Set Folder="%cd%"
:: папка назначения
Set Out="%cd%"

For /R "%Folder%" %%i In (*.*) Do (
Set ti=%%~ni
MD "%Out%\!ti:~0,100!"
Move "%%i" "%Out%\!ti:~0,100!">Nul
)
Pause>Nul