Упаковка TC с присвоением текущей даты в имени

[ask-rus]

Необходим скрипт, выполняющий последовательность действий:

/На каталоге с TC под курсором/
1. Вызов диалога Упаковка файлов (Alt+F5);

/Собственно, открывается диалог, где выделенным является:

zip:C:\TotalCmd8.zip

с чем и нужно провести некоторые действия/
2. Добавить к имени текущую дату. Должно получиться так:

zip:C:\TotalCmd8(19.03.2013).zip

Вот и всё. Подтверждение уже на мне.

P.s. Необходимость большая, архивов с именами от балды уже достаточно.
P.s. Упаковывать приходится часто, нередко возращаю затёртые иконки, т.к. новые не прижились.
P.s. Упаковываю через стандартный диалог, чтобы файлы, вошедшие в список исключений, не попали в архив.

[jentoso]

ask-rus, а почему именно скрипт, ведь есть тема ARC-RAR.

[Avada]

jentoso
Вообще-то запрос на ZIP-архивацию (надо полагать, встроенную), а в указанной теме рассматривается создание RAR-архивов (причём, естественно, внешним архиватором).

[jentoso]

Avada, я это видел. Просто предложил другой вариант решения, тем более WinRAR умеет упаковывать в ZIP. А подойдет он ему или нет, уже решит и озвучит

[Avada]

jentoso
А я ещё вот это видел.

Упаковываю через стандартный диалог, чтобы файлы, вошедшие в список исключений, не попали в архив.

[Flasher]

Подтверждение уже на мне.

Это обязательно? Есть же скрипты со счётчиком. Чем не годятся?

[jentoso]

Avada, так WinRAR можно указать -x@tcignore.txt
ask-rus, здесь можно посмотреть такие скрипты

[Avada]

jentoso
В списке исключений TC объекты могут быть как с путями, так и без. Так вот с указанным параметром при RAR-упаковке исключаются только объекты с путями, а объекты без путей прекрасным образом попадают в архив.

[ask-rus]

Это обязательно?

Ага. Мелькание окна портит впечатление.

Есть же скрипты со счётчиком. Чем не годятся?

Список исключений TC должен быть учтён.

jentoso
Я упаковываю в *.ZIP, но ведь здесь не суть, просто нужно к имени добавить дату.

[sa]

Код: Выделить всё

'=============================================================================
' Описание: Упаковка с добавлением текущей даты и времени к имени файла архива
' Параметры: %L%Z
'=============================================================================
If WScript.Arguments.Count > 0 Then WScript.CreateObject("WScript.Shell").SendKeys "%{F5}{F5}{RIGHT}" _
& "{(}" & Right("0" & Day(date), 2) & "_" & Right("0" & Month(date), 2) & "_" & Year(date) _
& "_" & Right("0" & Hour(NOW), 2) & "-" & Right("0" & Minute(NOW), 2) & "-" & Right("0" & Second(NOW), 2) _
& "{)}{HOME}+{END}" _
'& "{ENTER}"

Add
Из-за проблемы с нажатием вместо точки буквы ю при русской раскладке, заменил точку на символ подчёркивания (дабы не заморачиваться со сменой регистра).

[Avada]

sa
Тут выше было про мелькание окна, которое портит впечатление.

[ask-rus]

sa
А не 4 {LEFT}-а должно быть?

Тут выше было про мелькание окна, которое портит впечатление.

Ага.

[sa]

Тут выше было про мелькание окна, которое портит впечатление.

А если последнюю строку (с ENTER) заремить?

[ask-rus]

А если последнюю строку (с ENTER) заремить?

Впечатление не испортится.

---------------------------
Ошибка создания ZIP-архива.
---------------------------
Не удаётся записать новый ZIP-архив! Возможно, нет места на диске.
---------------------------
ОК
---------------------------

T:\1\ на X:\

zip:X(19.03.2013_17-08-36):\1.ZIP

[sa]

А не 4 {LEFT}-а должно быть?

Нет.