CMD/BAT

Iska · Отправлено: **03:38, 02-11-2018** | #2

Чересчур дурная лабораторка.

megaloman · Отправлено: **18:25, 02-11-2018** | #3

UserX,

лабораторка?

Код:

@Echo Off
cls
	Set "Src=Z:\Box_In\Мой контент\Книги\*.*"
	Set "Dst=Z:\Книги.arc"

	Set Arc="C:\Program Files\7-Zip\7zG.exe" a -r 
	Set "Ext=7Z"

	If Not Exist "%Dst%" Md "%Dst%"
	FOR /D %%d IN ("%Src%") DO (
		If Not Exist "%Dst%\%%~nxd.*" (Echo "%%d" &%Arc% "%Dst%\%%~nxd.%Ext%" "%%d\*.*")
	)
pause

Цитата UserX:

хотелось бы отдельным батником установить реальные даты создания/изменения этих каталогов в соответствии с их именами. Время не важно. »

Моя Ваша не понимайт.
Есть, например, папка 20180925. Что должно происходить в батнике и какой результат его работы?

Iska · Отправлено: **18:33, 02-11-2018** | #4

Цитата megaloman:

Моя Ваша не понимайт. »

Я ж говорил — лабораторка дурная

.

UserX · Отправлено: **18:58, 02-11-2018** | #5

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

Цитата megaloman:
Есть, например, папка 20180925. Что должно происходить в батнике и какой результат его работы? »
Да просто эта эта папка 20180925 должна получить дату своего создания и изменения 25.09.2018, и всё.

Iska, и вам спасибо за то, что оказались неравнодушны. Ибо, как сказал Юлиус Фучек: "Бойся равнодушных! Это с их молчаливого согласия совершается всё зло на земле!"
Очевидно, вас бояться не следует.

Iska · Отправлено: **19:24, 02-11-2018** | #6

Цитата megaloman:

Что значит получить? »

Это значит, что дорога лежит в PowerShell, поскольку на пакетных файлах нет средств для задания таких свойств в принципе (сторонние средства в расчёт не берём), на WSH свойства .DateCreated/.DateLastModified — только для чтения (дату последней модификации ещё можно задать посредством Shell → Folder → FolderItem.ModifyDate, но больно уж извращённый способ получается).

UserX · Отправлено: **19:45, 02-11-2018** | #7

Цитата megaloman:
Что значит получить? »
Это значит, что дата создания этой папки не совпадает с датой, определяемой именем папки. Хотелось бы это устранить и привести в соответствие.

megaloman, проверил Ваш батник.
Немного его изменил под себя и всё ПРЕВОСХОДНО сработало.
Огромное Вам спасибо!
----------------------------
@Echo Off
cls
Set "Src=C:\111\Src\*.*"
Set "Dst=C:\111\Dst"

Set Arc="C:\Program Files\WinRar\Rar.exe" a -r -ep1 -dh -m5 -s -rr5p -ts+ -y
Set "Ext=rar"

If Not Exist "%Dst%" Md "%Dst%"

FOR /D %%d IN ("%Src%") DO (
If Not Exist "%Dst%\%%~nxd.*" (Echo "%%d" &%Arc% "%Dst%\%%~nxd.%Ext%" "%%d\*.*")
)
----------------------------

Если не использовать ключ -ep1, то в архиве сохраняется весь путь C:\111\Src\Cat_name
Ключ -ep1 подавил сохранение в архиве лишнего пути, правда, несколько больше, чем хотелось бы.

А без этого ключа задача как-то решается?

Iska · Отправлено: **20:23, 02-11-2018** | #8

megaloman, а я понял так, что дату создания и дату последней модификации каталога надо задавать по содержащейся в его имени дате (время при этом несущественно).

UserX · Отправлено: **20:35, 02-11-2018** | #9

Цитата megaloman:
То есть, если папка 20180925 изменялась 20180929, то её надо переименовать? 20180925-->20180929 »

Не-не, вообще ничего переименовывать не нужно. Просто в результате обычного копирования были утрачены исходные даты создания папок. Но эти исходные даты создания папок являются именами этих папок.
Так что нужно взять папку с именем 20180925 и (можно даже ничего не проверяя) установить ей дату 20180925.
Соответвственно, папка с именем 20180929 должна получить дату 20180929.
То есть, после отработки, батник должен привести дату создания файла в соответствие с его именем.

Извините, пожалуйста, что не слишком понятно ставил вопрос.

megaloman · Отправлено: **20:39, 02-11-2018** | #10

Цитата UserX:

Ключ -ep1 подавил сохранение в архиве лишнего пути, правда, несколько больше, чем хотелось бы »

UserX,

А так, Если не использовать ключ -ep1? (остальные ключи не трогал и смысл их наизусть не помню - Ваша ответственность). Но, ИМХО, m5 -это чересчур, иногда архив получается больше, чем m3, а время радикально увеличивается

Код:

@Echo Off
cls
	Set "Src=Z:\Box_In\Мой контент\Книги"
	Set "Mask=*.*"
	
	Set "Dst=Z:\Книги.arc"

	Set Arc="C:\Program Files\WinRar\WinRar.exe" a -r -dh -m5 -s -rr5p -ts+ -y
	Set "Ext=rar"


	If Not Exist "%Dst%" Md "%Dst%"
	Pushd "%Src%" &&(
		FOR /D %%d IN ("%Mask%") DO (
			If Not Exist "%Dst%\%%~nxd.*" (Echo %%~td "%%d" &%Arc% "%Dst%\%%~nxd.%Ext%" "%%d\*.*")
		)
	Popd
	)
pause

Здесь Mask - это маска имён папок (не файлов!). Можно, например, задать 20??????.

Iska, Вы поняли, что надо изменить атрибуты файла

Цитата Iska:

на пакетных файлах нет средств для задания таких свойств в принципе (сторонние средства в расчёт не берём »

Тогда мне ~~не фиг ловить~~ в рамках этого решения делать нечего.