sa
|
Posted: Tue Mar 19, 2013 14:42 Post subject: |
|
|
Code: | '=============================================================================
' Описание: Упаковка с добавлением текущей даты и времени к имени файла архива
' Параметры: %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
Из-за проблемы с нажатием вместо точки буквы ю при русской раскладке, заменил точку на символ подчёркивания (дабы не заморачиваться со сменой регистра).
Last edited by sa on Wed Mar 20, 2013 17:43; edited 4 times in total |
|